

IL BASIC 
E LA 










IL BASIC 
E LA GESTIONE 
DEI FILE 


Metodi Pratkd 

r'Vbbixne 


di 

Jacques Boisgontier 



GRUPPO 
EDITORIALE 
JACKSON 
Via Rosellini, 12 
20124 Milano 
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lizzare su Personal Computerà, che prevedano l'uso di filss residenti su disco. 
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PRESENTAZfONE 


Quest'opera si rivolge in modo particolare ai lettori che conoscono già le tecniche 
generali di programmazione in Basic. Per coloro che invece non hanno mai avuto oc¬ 
casione di utilizzare questo tipo di linguaggio, vengono richiamate le caratteristiche 
fondamentali nell’Appendice 1. 

Riteniamo comunque interessante per tutti una lettura iniziale, seppur rapida, del 
contenuto di questa appendice. 

Il presente volume è diviso logicamente in tre parti distinte: 

La prima, dedicata alla descrizione delle particolarità della versione Basic Micro¬ 
soft 5., è corredata da numerosi esempi pratici. Si consiglia a questo proposito al let¬ 
tore di confrontare questa versione del Basic con quella descritta sul manuale d'uso 
del proprio Personal Computer, al fine di mettere in luce eventuali differenze. 

La seconda è dedicata alla descrizione delle istruzioni necessarie per una corretta 
gestione dei files su disco, sia ad accesso diretto che sequenziale. Anche in questo 
caso sono stati prodotti numerosi esempi illustrativi. 

La terza parte è interamente dedicata all'esposizione dei metodi pratici per l'uso 
del files ad accesso diretto e dei data base. 

L'opera è poi completata da due appendici tecniche sui messaggi d’errore e sui 
codici ASCII. VI è Inoltre un elenco alfabetico dei termini tecnici utilizzati con i relati¬ 
vi riferimenti. 

Per evitare al massimo gli errori di trascrizione, i tabulati relativi ai programmi so¬ 
no stati direttamente riprodotti dagli originali ricavati dall’elaboratore. 


NOTA: Nel programmi, a volte, sono state tralasciate alcune tra le routine più semplici, lasciando al 
lettore, quale esercizio, lo sviluppo delle stesse. 


IV 



CAPITOLO 1 


IL BASIC MICROSOFT 5 


BATTITURA DI UN PROGRAMMA CODIFICATO 

Ciascuna riga di programma deve essere numerata. I numeri di riga ammessi van¬ 
no da 1 a 65529. Le varie righe possono essere trasmesse al calcolatore, purché op¬ 
portunamente numerate, in un ordine qualsiasi. 

Il numero massimo di caratteri ammesso per ogni riga è 255. 

Il carattere permette di far riferimento, in un comando di consolle, alla riga cor¬ 
rente. 

equivale a PRINT. 

Il tasto LINE-FEED permette di scrivere un’unica riga logica di programma utiliz¬ 
zando fisicamente più righe sul video. 

Tutto ciò che in una riga di programma segue la parola REM o è racchiuso tra apici 
viene considerato come commento. 

Si possono scrivere più istruzioni su una stessa riga: in tal caso le singole istruzioni 
devono essere separate con il carattere":” (due punti). 

Se, durante l’esecuzione del programma, l’interprete Basic incontra un errore di 
sintassi, trasmette all’utente un messaggio indicante il tipo di errore e la riga in cui ta¬ 
le errore è stato riscontrato, sospende l’esecuzione del programma e passa il con¬ 
trollo all’Edltor per la correzione: 

10 BUONGIORNO 

RUN 

SYNTAXERROR IN 10 

10 

Il programmatore può in questo caso controllare il contenuto della riga 10 ed even¬ 
tualmente apportarvi delle modifiche. Se però prima di effettuare ie modifiche si vuo- 
ie controllare il valore assunto da alcune variabili a quel punto del programma, occor¬ 
re rilasciare l’EDIT mediante il comando Control-Q dato che anche una sola modifica 
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apportata al programma comporterebbe una riinizializzazione a zero di tutte le varia¬ 
bili utilizzate dal programma stesso. 


Per rilasciare l’Edit con la riinizializzazione automatica di tutte le variabili è suffi¬ 
ciente invece premere il tasto RETURN (su alcune tastiere CR). 


Caratteri di controllo 


Control A: 
Control C: 

Control G: 
Control H: 
Control I: 
Control O: 


Control R: 
Control S: 
Control Q: 
Control U: 


Permette di utilizzare l’EDiT sulia riga corrente 

Interrompe l’esecuzione del programma in corso e passa il controllo al 

BASIC 

Attiva il segnale sonoro 
Cancella l’ultimo carattere battuto 
Predispone la tabulazione (di 8 in 8) 

Inibisce l’operazione di stampa (o di visualizzazione) senza però so¬ 
spendere l’esecuzione dei programma. 

Per riattivare la stampa basta dare un nuovo Control 0. 

Visualizza la riga corrente 
Sospende l’esecuzione dei programma 
Riattiva l’esecuzione sospesa 
Annulla la riga corrente 


Editor microsoft 5. 

Una riga di programma può essere interamente riscritta. 

Se durante la battitura di un’istruzione, ci si accorge di aver battuto un carattere 
errato si può cancellare l’ultimo carattere battuto mediante uno dei due comandi: 

Control H o RUBOUT 

Se invece si vuole cancellare l’intera riga basta utilizzare ii comando: 

Control U 

Si possono inoltre modificare delie righe di programma già memorizzate in prece¬ 
denza. Per far ciò occorre applicare l’EDIT alla riga che si desidera modificare, utiliz¬ 
zando il comando 

EDIT n® di riga 

Esempio: 

EDIT 100 
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Funzioni deil’EDiT 


Posizionamento del cur¬ 
sore 


Inserimento di caratteri 


Aggiunta di caratteri alla 
fine di una riga 


Cancellazione di caratteri 


Ricerca di un carattere 


ESPACE Battendo questo tasto il cursore si spo- 
(barra spa- sta ogni volta di uno spazio verso destra, 
ziatrice): Mediante la forma xESPACE si ottiene 

direttamente lo spostamento del cursore 
di X spazi verso destra. 


RUBOUT: Con questo comando si ottiene lo spo¬ 

stamento del cursore di uno spazio ver¬ 
so sinistra. Utilizzando la forma xRU- 
BOUT si ottiene direttamente lo sposta¬ 
mento del cursore di x posti a sinistra. 


(insert): 


X: 


D; 

(dolete) 


H 

(back): 


S 

(search): 


Per inserire in una riga uno o più caratte¬ 
ri basta, in EDIT, battere il carattere I 
seguito dalla striga che si vuole inserire 
a partire dalla posizione corrente del 
cursore. L’operazione di inserimento si 
conclude battendo il tasto ESCAPE. Se 
non si devono effettuare altre modifiche 
si può rilasciare l'EDIT mediante un CR, 
altrimenti si possono effettuare altre mo¬ 
difiche utilizzando gli opportuni coman¬ 
di. 

Mediante la battitura di questo carattere 
si posiziona il cursore alla fine della riga 
in esame. A questo punto basta aggiun¬ 
gere la parte di testo voluta. 

Battendo il carattere D si cancella il ca¬ 
rattere su cui è posizionato il cursore. 
Mediante il comando xD si cancellano x 
caratteri a partire da quello individuato 
dal cursore. 

Cancella tutti i caratteri alla destra del 
cursore e permette poi l’inserimento di 
un nuovo testo. 

’S carattere cercato' posiziona il cursore 
sul primo carattere uguale a quello indi¬ 
cato presente nella riga. 

‘i S carattere cercato' posiziona il cur- 
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K 

(search and 
kilt): 

Sostituzione di caratteri c 

(change): 


Rilascio deil’EDIT RETURN 

(CR): 


E 

(exit): 

Q 

(cancel and 
quite): 

L 

(list): 


A 

(annulla): 


sore suiri-eslma occorrenza del carat¬ 
tere specificato. 

‘i K carattere cercato’ posiziona ii curso¬ 
re suli’i-esima occorrenza dei carattere 
specificato e canceiia tutti i caratteri che 
precedono la posizione raggiunta. 

’C carattere’ canceiia ii carattere suc¬ 
cessivo a queilo su cui è posizionato il 
cursore e lo sostituisce con carattere. 
'k C stringa’ canceiia K caratteri a parti¬ 
re da quelio successivo aiia posizione 
del cursore e li sostituisce con queili 
contenuti in ‘stringa’. Dopo i’operazione 
di sostituzione il controllo è restituito al- 
i’EDIT. 

Con ii RETURN si ottiene il rilascio del- 
l’EDIT, la memorizzazione delle corre¬ 
zioni e la visualizzazione dell’intera riga 
corretta. 

Ha la stessa funzione del RETURN ma 
non visualizza la riga corretta. 

Viene rilasciato l’EDIT ma non vengono 
memorizzate le modifiche apportate. 


Si mantiene in fase di EDIT visualizzan¬ 
do l’intera riga e riposizionando il curso¬ 
re sul primo carattere. 

Annulla tutte le modifiche effettuate e ri¬ 
posiziona il cursore all’inizio della riga. 
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COMANDI DEL BASIC MICROSOFT S. 


Questi comandi possono essere utiiizzati direttamente da consoiie, dopo ia visua- 
iizzazione di un OK da parte dei sistema, oppure aii'interno di un programma. 

AUTO n° riga, incremento: genera automaticamente un nuovo numero di riga ogni 
voita che viene battuto un RETURN. Si può interrompere ia generazione auto¬ 
matica mediante un Controi C. 

AUTO 100,5 genera i numeri di riga a partire da 100 con un incremento di 5 
ogni voita. 

AUTO 100 genera ia numerazione a partire da 100 con un incremento di 
10 

CLEAR, indirizzo max, spazio perle stringhe: azzera tutte ie variabili, fissa i’indirizzo 
più alto utilizzabile dal Basic e riserva l'area destinata ai dati aifanumerici. Se 
'spazio per stringhe' non viene specificato viene automaticamente riservata 
un’area pari o a 1000 bytes o a 1 /8 deiia memoria disponibile (viene considera¬ 
to il valore minore). 

CLEAR, 3000 azzera tutte ie variabili e riserva 3000 bytes per le stringhe. 
CLEAR azzera tutte le variabili e riserva io spazio standard per ie strin¬ 

ghe. 

CONT: fa riprendere l'esecuzione di un programma interrotto con uno STOP o un 
END o un Controi C. ii comando CONT non viene accettato se dopo ia sospen¬ 
sione si sono apportate deile modifiche al programma (in questo caso si deve 
ricorrere al comando GOTO xx). 

DELETE n° riga iniziale —riga finale: sopprime tutte le righe di programma i cui nu¬ 
meri identificatori sono compresi tra quelli indicati, 'riga iniziale' e 'riga finale' 
devono corrispondere a righe realmente esistenti. 

DELETE 100—200 cancelia tutte ie righe numerate tra 100 e 200. 

FiLES "U:x.x": fornisce i’eienco dei fiies presenti suii’unità a disco specificata (U=A, 
B, C ...) 

FiLES “A: x. BAS" fornisce la lista dei fiies di sistema (BASIC) presenti sul di¬ 
sco A 

KiLL “U: nome del file": cancella il file indicato presente suil’unità disco specificata. 
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KILL “A: PIPPO” cancella il file PIPPO dal disco A 


LIST n° linea iniziale — n° linea finale: visualizza tutte le righe del programma aventi i 
numeri compresi tra quelii indicati 


LIST 
LIST 10 
LIST 500- 

LIST-400 


visualizza tutte le istruzioni del programma 
visualizza solo la riga 10 

visuaiizza ia parte di programma compresa tra ia riga 500 e la 
fine 

visualizza tutte le righe di programma fino alla 400. 


LLIST Stampa il programma completo utilizzando la stampante. 


LOAD "U: nome dei file", R: carica in memoria centraie il file indicato e ne iancia i’e- 

secuzione (R) 

LOAD "PIPPO” carica in memoria il programma PIPPO residente sui di¬ 
sco A 

LOAD "B: PiPPO” carica in memoria il programma PIPPO residente sui di¬ 
sco B 

LOAD “PIPPO”, R carica in memoria il programma PIPPO residente sul di¬ 
sco A e lo esegue. 


NAME "vecchio nome” AS "nuovo nome": modifica il nome di un file 
NAME “PIPPO” AS “PLUTO” 

NEW cancella H programma presente In memoria. 

MERGE "U: nome del file": concatena il programma già presente in memoria con il 
programma specificato (purché memorizzato in forma ASCi i). Se alcune righe 
del programma richiamato hanno lo stesso numero di identificazione di quelie 
presenti nel programma residente, esse le sostituiscono in fase di concatena¬ 
zione. 

RENUM nuovo numero di riga, prima riga da rìnumerare, incremento: 
rinumera le righe dei programma. 

— il ‘nuovo numero di r/ga ' rappresenta il numero che deve assumere la prima 
riga da rinumerare (se non specificato viene assunto uguale a 10). 

— la 'prima riga da rinumerare’ indica da che punto dei programma deve ini¬ 
ziare ia rinumerazione. Se questa opzione non è specificata viene rinumera¬ 
to tutto il programma. 
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- 'incremento' indica il valore dell'incremento che deve essere usato nella ri¬ 
numerazione. Se questa opzione non è utilizzata l’incremento viene assunto 
uguale a 10. 


RENUM 

RENUM 1000,,10 

RENUM 1000,900,10 


rinumera tutte le righe del programma assegnando 
alla prima riga il numero 10 e utilizzando un incre¬ 
mento pari a 10 

rinumera tutte le righe del programma assegnando 
alla prima riga il numero 1000 e utilizzando un incre¬ 
mento pari a io 

rinumera il programma della riga 900 in poi, asse¬ 
gnando alla riga 900 il nuovo numero 1000 ed utiliz¬ 
zando un incremento di 10 per rinumerare le succes¬ 
sive. 


RUN n° di riga: lancia l’esecuzione del programma presente in memoria a partire dal¬ 
l’istruzione specificata. Tutte le variabili vengono inizializzate a zero. 

RUN lancia il programma dalla prima istruzione. 

RUN "U: nome fiie", R: chiude tutti i files, azzera le variabili, carica il programma ri¬ 
chiesto e ne lancia l’esecuzione. Se non viene specificata l’opzione R i files e- 
ventualmente rimasti aperti durante l’elaborazione precedente non vengono 
chiusi. 

SAVE "U: nome dei fiie": 'salva’ sull’unità disco specificata il programma presente in 
memoria assegnandogli il nome indicato. 

SAVE "PIPPO” salva II programma sul disco A assegnandogli il nome 
PIPPO 

SAVE ’’B: PIPPO” salva il programma sul disco B assegnandogli il nome 
PIPPO. 

SAVE "Li: nome fiie", P: salva il programma in modo 'protetto'. Un programma salva¬ 
to in questo modo non può essere listato. 

SAVE "U: nome fiie", A: salva il programma in forma non compattata (ASCil), per¬ 
mettendo cosi la sua manipolazione mediante le istruzioni MERGE. 

SYSTEM: rilascia il BASIC. 

TRON; permette di visualizzare, in fase di esecuzione il numero corrispondente 
alle istruzioni realmente eseguite (TRACE). 

TROFF: annulla l’effetto di TRON. 
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VARIABILI 


Nomi 

I nomi delle variabili possono essere formati sia da lettere alfabetiche che da cifre, 
il primo carattere però deve essere necessariamente una lettera. 

Nelle vecchie versioni del Basic, l’interprete prendeva in considerazione solo i pri¬ 
mi due caratteri del nome e pertanto due variabili aventi i primi due caratteri del no¬ 
me uguali venivano considerate dal sistema come una sola variabile. Nella versione 
Microsoft 5. invece si possono usare ben 40 caratteri significativi. 

Sul TRS80 vi è una limitazione: i nomi delle variabili non possono contenere le pa¬ 
role chiave del linguaggio Basic. Cosi non viene accettato il nome CIFRA in quanto 
contiene la parola chiave IF. 

Tipi 

Le variabili vengono classificate in quattro tipi: intero, reale in semplice precisione, 
reale in doppia precisione, alfanumerico (stringa di caratteri). 

L’appartenenza ad un certo tipo viene caratterizzata da un simbolo identificatore 
che viene posto alla fine del nome della variabile. 

I caratteri identificatori sono rispettivamente: % ! # $ 

Es: X% = 5 (X% è considerato di tipo intero) 


Se per una variabile non viene dichiarato il tipo, la variabile stessa viene conside¬ 
rata reale in semplice precisione. 


Tipo 

Carattere 

Identificatore 

Esemplo 

Intero 

(numeri interi compresi tra 
-32768 e +32767) 

% 

X%=123:GI ORNO%=365 

Reale in semplice precisione 
(6 cifre significative) 

! 

SOMMA=1234.56 

Reale in doppia precisione 
(16 cifre significative) 

# 

SOMM A#=123456789.123 

Alfanumerico 

(stringhe di caratteri di lunghezza 
variabile con al più 255 caratteri) 

$ 

NOME$=“ANTONIO” 
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Variabili aventi lo stesso nome ma appartenenti a tipi diversi vengono considerate 
come distinte (per esempio A% e A$). 

i comandi RUN e CLEAR inizializzano le variabili assegnando il valore zero a quel¬ 
le numeriche e la caratteristica di stringa vuota a quelle alfanumeriche. 

Lo spazio occupato in memoria ed il tempo necessario per i calcoli aumentano con 
l’aumentare della precisione richiesta. 

Costanti ottall ed esadecimali 

Le costanti ottali sono caratterizzate dall’avere il loro valore preceduto dal caratte¬ 
re & o dalla coppia di caratteri &0 

Esempio: PRINT 40377 -• 255 

Le costanti esadecimali invece sono caratterizzate dalla coppia di caratteri sH po¬ 
sta davanti al valore. 

Esempio; PRINT sHFF-> 255 

Con le costanti ottali ed esadecimali si possono rappresentare i valori interi com¬ 
presi tra — 32768 e + 32767. I numeri negativi (caratterizzati dall’avere il primo bit 
settato) sono espressi nella loro forma complementare. 


Ottale 

Decimale 

Esadecimale 


-32768 

4H8000 

401(^^001 

-32767 

4H8091 

&O017777 

-1 

4HFFFF 

40000000 

0 

&H0000 

40000001 

+1 

4H0001 

40077777 

+32767 

4H7FFF 


Le costanti ottali/esadecimali possono ad esempio essere utilizzate nelle istruzioni 
DATA: 


10 DATA 4H3FD1 

50 READ X: PRINT X-> 16337 
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DEFI NT - DEFSNG - OEFDBL - OEFSTR 
(Definizione Implicita di tipo) 

DEFtipo lettere: permette di definire IMPLICiTAMENTE il tipo per tutte le variabili il 
cui nome inizia con una delle lettere specificate, senza ricorrere al¬ 
l’uso dei caratteri convenzionali (% ! $) 


Si può comunque ancora dichiarare per alcune variabili, il cui tipo 
era già stato definito implicitamente, un nuovo tipo in modo esplici¬ 
to, cioè mediante l’uso dei caratteri convenzionali. 

In questo caso la dichiarazione esplicita è prevalente. 


definì J: 


DEFSTR A-C: 


definì I-N,R-I: 


tutte le variabili aventi il nome che i- 
nizia con la lettera J, il cui tipo non 
venga dichiarato esplicitamente, ven¬ 
gono considerate intere. 

tutte le variabili il cui nome inizia per 
A, B, C vengono considerate di tipo 
alfanumerico. 

specifica due domini di variabili inte¬ 
re. 


L’interprete Basic ammette la ridefinizione di tipo anche nel corso del programma 
mentre ciò non è ammesso utilizzando il Compilatore Basic. 


Conversione di tipo 

La memorizzazione di un dato in una variabile viene fatta adattando il dato al tipo di 
variabile che lo deve contenere. 

IO AV.^t;;ii.45 

20 FRINT AV. 

RLIN 


A#=1.001#-- A#=1.001 

A#=1.001D-> A#=1.001 

A#=1.001-A#=1.00100046730042 Attenzione!!! 

1.1/2# -> 0.550000011920929 

1.1 #/2# -. 0.55 

IO INPUT"NUMERO '•;X#:PRINT X» 

RUN 


NUMERO t.OOl 
1.001 
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Quando si deve eseguire un'operazione aritmetica di addizione, sottrazione o mol- 
tipiicazione con operandi di tipo diverso, tutti questi vengono prima convertiti nel tipo 
dell’operando con precisione maggiore, e solo in seguito viene eseguita l'operazione 
il cui risultato verrà fornito con la medesima precisione. 

Pertanto il risultato di un’operazione tra due operandi di cui uno in semplice e l’al¬ 
tro in doppia precisione verrà fornito in doppia precisione. 

Nel caso di una divisione tra due operandi di tipo intero il risultato può essere forni¬ 
to in semplice precisione. In tutti gli altri casi rimane invece valido, anche per la divi¬ 
sione, il criterio esposto per le altre operazioni. 


10 

A=2:B^ 

=3;R=A/B 

20 

A= 2;EI 

»= A/l:« 

30 

PRINT 

R,R# 

RUN 




. 6666Ó67 .66666<:*6666666667 

Anche prima di effettuare un’operazione di confronto tra operandi di tipo diverso, il 
sistema li riporta tutti ad un unico tipo secondo le regole esposte in precedenza. 

Effetti della conversione di tipo per un dato: 

La conversione di un valore reale in un intero comporta la soppressione della sua 
parte decimale: la conversione da doppia a semplice precisione comporta un arro¬ 
tondamento del valore con la perdita delle cifre meno significative. 

Attenzione: la conversione in doppia precisione di un dato intero o in semplice pre¬ 
cisione non comporta automaticamente il suo completamento a destra con gli zeri. 

10 A!=1.00001 

20 B#-A! 

30 PRINT A!,BI* 

RUN 

1.00001 1.000009S94371033 


Per evitare questo inconveniente si può ricorrere alla funzione STR$ come illustra¬ 
to nell’esempio. 


10 A!=1.00001 

20 Bit VAL (STR* (A! ) ) 

30 PRINT A!,E# 


RUN 


1.00001 1.00001 
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ESPRESSIONI EO OPERATORI 


Un’espressione è costituita o da una costante (sia essa numerica che aifanumeri- 
ca) 0 da una singola variabile o da un’insieme di variabili e costanti legate tra loro da 
operatori. 

Esempio: (X*2) + 4/6 

Gli operatori che legano tra loro le variabili e le costanti vengono suddivisi in tre 
categorie: 

1/ Aritmetici 
2/ Relazionali 
3/ Logici 


Operatori aritmetici 

Elevamento a potenza 
* / Moltiplicazione Divisione 

+ - Addizione Sottrazione 

MOD\Modulo Divisione intera 

Il calcolo del valore di un’espressione aritmetica viene effettuato tenendo conto 
del grado di priorità degli operatori in essa contenuti. 

Ad esempio 5+10/5 è uguale a 7 

Per modificare l’ordine in cui devono essere eseguite le varie operazioni si utilizza¬ 
no le parentesi. In tal caso le sottoespressioni racchiuse tra parentesi vengono cal¬ 
colate prima. 

Ad esempio (5+10)/5 è uguale a 3 

X MOD Y: L’operatore MOD fornisce il resto della divisione tra due numeri interi 

PRINT 100 MOD 3 -► 1 

X\Y L’operatore \ fornisce la parte intera della divisione tra X e Y 

PRINT 100\3 -. 33 

X deve essere intero 


12 



Operatori relazionali 

Gli operatori di tipo relazionale vengono utilizzati per confrontare tra loro due va¬ 
riabili o costanti. Il risultato di un'operazione di relazione è zero quando la condizione 
espressa dall'operatore non è verificata e —1 quando invece tale relazione è verifica¬ 
ta. 


Gli operatori di tipo relazionale trovano il loro uso più comune nelle istruzioni del ti¬ 
po IF...THEN...ELSE... 

10 IF X=0 THEN PRINT "VALORE NULLO" ELSE PRINT X 
GII operatori relazionali accettati dal Basic sono: 


= 

uguale 

<> 

diverso 

< 

minore 

> 

maggiore 

<= 

minore o uguale 

>= 

maggiore o uguale 


Operatori logici 

Vengono utilizzati per esprimere delle relazioni multiple nelle istruzioni di tipo 
IF...THEN...ELSE... 

Il risultato di un'operazione logica può essere FALSO (0) o VERO(-I) 

10 IF A < 0 AND B < 0 THEN PRINT "A e B SONO NEGATIVI" 

L'ordine di priorità con cui vengono eseguite le operazioni logiche è il seguente: 
NOT AND OR XOR IMP EQV 

Per comodità nella tabella seguente viene indicata con 0 la condizione FALSO e 
con 1 la condizione VERO. In realtà il risultato di un'operazione logica viene testato 
tramite un confronto con lo zero: 
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FALSO=0 e VERO # 0. 


R1 R2 


NOT (negazione) NOT RI 


1 - 0 

0 - 1 


AND 


R1 AND R2 IMF (implicazione) R1ÌMPR2 


111 11 1 
10 0 10 0 
0 10 0 1 1 
0 0 0 0 0 1 


OR 


RI OR R2 EQV (equivalenza) RI EQV R2 


1 1 1 
1 0 1 
0 1 1 
0 0 0 


1 1 
1 0 
0 1 
0 0 


1 

0 

0 

1 


XOR(OResclusivo) RI XOR R2 

11 0 
1 0 1 

0 1 1 

0 0 0 


Nel calcolo di un'espressione contenente operatori dei tre tipi (aritmetico, relazio¬ 
nale, logico) l'ordine di priorità è dato dalla seguente tabella: 

1/ parentesi 
2/ operatori aritmetici 
3/ operatori relazionali 
4/ operatori logici 


Esempio: 

MAXNUM= - ((A>B)*A+(A<=B)''B) 
dà come risultato il valore massimo tra A e B 
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Operazioni booieane 

Le operazioni booieane sui singoii bit e ia loro manipolazione all’interno di una 'pa¬ 
rola' vengono realizzate mediante gli operatori logici AND, OR, NOT,... 

Questi ultimi operano su operandi formati da gruppi di 16 bit, il cui contenuto è rap¬ 
presentato tramite dei numeri interi compresi tra +32767 e —32768 di cui tali ‘parole’ 
sono la forma binaria. L’operazione logica viene poi effettuata BIT a BIT. 

Esempio: 

15 . 0000000000001111 

4 . 0000000000000100 

15 AND 4 -. 0000000000000100 -4 

Esempio: 

4 . 0000000000000100 

2 -. 0000000000000010 

4 OR 2 -. 0000000000000110 -- 6 

Esempio: 

-1 -> 1111111111111111 

8 -. 0000000000001000 

-1 AND 8 . 0000000000001000 . 8 
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INPUT DA TASTIERA: INPUT-LINE INPUT-INPUT $ (1) 

INPUT “messaggio”, vari, var2, ... 

Questa istruzione permette durante l’esecuzione di un programma di trasmettere 
uno o più dati battendo i relativi valori sulla tastiera del terminale. 

Nell’istruzione INPUT i nomi delle variabili a cui devono essere assegnati i valori 
trasmessi sono separati da virgole. 

Dopo la visualizzazione del ’messaggio’, l’operatore digita sulla tastiera i valori da 
assegnare alle variabili specificate nell’istruzione di INPUT, separandoli con le virgo¬ 
le. I valori numerici possono essere separati tra loro anche mediante degli spazi 
bianchi. 

Esempio: 

10 INPUT “COGNOME, NOME, TELEFONO’’; COGNOME$, NOME$, TELEFONO# 

Dopo la visualizzazione del messaggio: cognome, nome, telefono l’operatore batte 
sulla tastiera: 

ROSSI, MARIO, 422012 

e completa l’operazione battendo il tasto RETURN. A questo punto le variabili CO- 
GNOME$, NOME$ e TELEFONO # assumono rispettivamente i valori ROSSI, MARIO, 
422012. 

Se in fase di INPUT l’operatore vuole assegnare alle variabili il valore nullo può 
battere semplicemente il tasto di RETURN (battendo solo il tasto di RETURN sul 
TRS80, invece, le variabili mantengono i valori che possedevano prima dell’operazio¬ 
ne di INPUT). 

Qualora, in seguito ad una richiesta di input, l’operatore non inserisce tutti i valori 
previsti, il sistema risponde con un doppio punto interrogativo per indicare all’opera¬ 
tore che deve inserire ancora dei dati. 

Se in fase di input viene trasmesso un valore di tipo diverso da quello previsto (ad 
esempio una stringa di caratteri al posto di un valore numerico) il sistema lo rifiuta e 
trasmette il messaggio ??REDO (incomincia da capo). 

Qualora si voglia trasmettere una stringa di caratteri contenente delle virgole, oc- 


corre racchiuderla tra virgolette. 

to 

INPUT "VIA: ";VIA» 

20 

FRINT VIA* 

RUN 

VIA: "VIA GARIBALDI,2 
VIA CARIBALDI,2 
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LINE INPUT “messaggio”; S$ 


In questo caso i caratteri di separazione (virgoie, spazi bianchi, ecc.) vengono 
considerati come caratteri appartenenti aila stringa trasmessa. 

La fine della stringa può essere comunicata solo con un RETURN (ricordiamo co¬ 
munque che ii numero di caratteri trasmesso non può superare 255). 


INPUTS (1): (Microsoft 5.) 

Trasmette di voita in voita i caratteri battuti da tastiera senza aspettare ia fine della 
stringa (come avviene invece per l’istruzione INPUT) e ciò permette all’operatore di 
controllare meglio le operazioni di input in quanto ogni carattere accettato viene di 
volta In volta visualizzato. 


Questo tipo di operazione risulta tuttavia notevolmente lento e va usato perciò solo 
in casi particolari. 


lOO Y*=’"' •'INIZIALIZZAZIONE DI V*' 

no XS = INPUTS(1) 'LETTURA DI i.lN CARATTERE' 

120 IF ASC(Xt)-13 THEN 150 'RETURN' 

125 IF ASC(X*) -=8 THEN YS=I.EFT* (YS, LEN ( YS )-l ) : 

PFìlNT X*;;GOTO 110 ■'RICHIESTA ARRETRAMENTO CURSORE 
130 PRINT X*; 'STAMPA CARATTERE' 

140 Y*=^Y3'‘X1i: DOTO 110 'AGGIORNAMENTO STRINGA-' 

150 'PROSECUZIONE (-•ROORAMMA' 


Sul TRS80 l’istruzione INKEY$ (equivalente airiNPUT$(1) ) attua un esame sulla 
tastiera e restituisce il codice del tasto battuto, nel caso in cui un tasto sia stato effet¬ 
tivamente battuto, oppure una stringa vuota. Utilizzando questa funzione si può far e- 
seguire al calcolatore un ciclo di istruzioni finché non viene premuto un particolare 
tasto. 


100 Xt=INKEY$ 'ESAME TASTIERA' 

no IF X* = "" THEN GOSUB ...: GOTO 100 'SOTTOPROORAHMA DI ATTESA' 

116 '' 

120 ELABORAZIONE RELATIVA AL CARATTERE ACQUISITO' 

125 ' 

130 GOTO 100 
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IF...THEN...ELSE... (se...allora...altrlmenti...) 

Selezione e cicli 

IF e spressione logic a THEN serie di istruzioni ELSE serie di istruzioni 

vero o falso se espr. è vera se espr. è falsa 

Mediante questa istruzione viene eseguito un test sul valore assunto da ‘espressio¬ 
ne logica’. Se tale valore è VERO viene eseguita la serie di Istruzioni compresa tra 
THEN e ELSE, se è FALSO viene eseguita la serie di istruzioni che segue ELSE. 



Serie di Istruzioni Serie di istruzioni 
dopo THEN dopo ELSE 


T 


Esempio; 


10 

INPUT "NUMERO A, NUMERO 

B " 

;A,B 

20 

:30 

IF A>B THEN PRINT "A>B" 
GOTO 10 

El.S 

E PRINT "A<=B 


In realtà il test non è limitato alle sole espressioni logiche ma può essere effettuato 
anche su quelle aritmetiche. In quest’ultimo caso il risultato del test sarà FALSO se 
l’espressione vale 0 e VERO in tutti gli altri casi. 

Questa particolare opzione del Basic non verrà comunque utilizzata in quest’ope¬ 


ra. 


Esempio; 


IO IF I THEN PRINT "I NON Nl.ll.1.0” 

20 IF<(I>10)*(I<20) THEN PKINT "I COMPRE; .U TRA 10 E 20" 


Più IF possono essere concatenati tra loro. In questo caso è necessario però che 
ad ogni IF...THEN corrisponda un ELSE. 


10 INPUT ”A,B?":A,B 

20 IF A< = B THEN IF A<B THEN PRINT ”A<B” ELSE PRINT “A = B ” ELSE ’PRINT" A>B 
ax = ** = * = =“““ T ~ ~ ~ _J ” 


J 
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FOR...NEXT...STEP... (ciclo) 


FOR var. contatore = V. iniziale TO v. finale STEP incremento 


NEXT var. contatore. 

Il Valore iniziale’, il ‘valore finale' e l”incremento’ possono essere assegnati me¬ 
diante delle espressioni. 

Quando viene incontrata un’istruzione FOR, la variabile contatore viene iniziaiizza- 
ta con il ‘valore iniziale’, dopo di che vengono eseguite le istruzioni comprese tra il 
FOR ed il NEXT. 

Allorché viene incontrata i’istruzione NEXT, ii vaiore della variabile contatore viene 
incrementato di una quantità pari a quella specificata con l’opzione STEP (se questa 
specifica non compare l’incremento viene assunto uguale ad 1), poi viene effettuato 
un confronto tra il nuovo valore assunto dalla variabile contatore e quello specificato 
con ‘vaiore finale’: 

- se il valore del contatore risulta ancora minore o uguale (caso di un incremento 
positivo) al ‘valore finale’ vengono rieseguite tutte le istruzioni comprese tra ii FOR 
ed ii NEXT; 

- se ii valore del contatore risulta maggiore (caso di un incremento positivo) dei ‘va¬ 
lore limite’ ii programma prosegue con l’esecuzione dell’istruzione successiva al 
NEXT. 

Nel caso in cui invece i’incremento sia negativo il ciclo ha termine quando ii conta¬ 
tore assume un vaiore inferiore a queilo specificato come ‘vaiore finale'. 



USCITA 
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Esempi: 

10 FOR 1=10 TO 1 STfcP -1 

20 PRINT I? 

30 NEXI I 

40 PRINT "FINE" 

RUN 

10 937 654321 FINE 


10 FOR 1=0 TO 1 STEP .3 

20 PRINT I; 

30 NEXT I 

RUN 

0 .3 .6 .9 


I valori da assegnare ai parametri; ‘valore iniziale', ‘valore finale’ e ‘incremento’ 
vengono calcolati una sola volta all’inizio del ciclo. Pertanto essi non cambiano an¬ 
che se all'interno del ciclo vi sono delle istruzioni che modificano i valori di alcune va¬ 
riabili che sono state utilizzate per la loro definizione. È invece possibile modificare 
direttamente,’tramite delle istruzioni interne al ciclo, il valore della variabile contato¬ 
re. 


Nella versione 5. il test sul valore assunto dal contatore viene effettuato ‘in testa’ al 
ciclo anzicchè ‘In coda’. In questo caso se (per un Incremento positivo) ‘valore inizia¬ 
le’ è maggiore di ‘valore finale’ il ciclo non viene eseguito neppure una voita. 

La ‘variabile contatore’ può essere sia di tipo intero che in semplice precisione. 
Ovviamente usando un contatore di tipo intero si rende più rapida l’esecuzione dei ci¬ 
clo. 


Cicli annidati 

Più cicli FOR...NEXT possono essere ‘inscatolati’ tra loro; è cioè possibile prevede¬ 
re un ciclo all’Interno di un altro. Non è possibile Invece costruire dei cicli accavallati 
tra loro. 


10 FOR 1=1 TO 5 CICLO ESTERNO 

15 PRINT "1= "(I;" U= "( 

20 FOR ..1=1 TO 10 CICLO INTERNO' 

30 PRINT J; 

40 NEXT .J 

50 PRINT 

60 NEXT I 
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RUN 


1= 1 •J= 1 2 3 4 5 ó 7 3 9 10 
1= 2 J= 1 2 3 4 5 ó 7 3 9 10 


1= 5 J= 1 2 3 4 5 11' 7 S 9 10 

Se tra NEXT J e NEXT I non vi sono altre istruzioni si può utilizzare la forma com¬ 
pattata NEXT J, I. 

Al posto della forma NEXT J si potrebbe utilizzare anche il solo NEXT, in quanto 
un’istruzione di questo tipo provoca comunque un incremento del contatore relativo 
al ciclo più interno. Tale contatore viene poi eliminato automaticamente al termine 
del ciclo stesso. Però, anche se questa forma è ammessa dal Basic da noi utilizzato, 
indicheremo sempre, nelle istruzioni NEXT la variabile contatore a cui si fa riferimen¬ 
to in quanto ciò renderà i programmi più facili da interpretare. 

Nota relativa all’uso dei cicli POR...NEXT con l’interprete Basic 

(nelle versioni precedenti la 5.) 

Il programma presentato nell’esempio seguente sembra a prima vista ben scritto 


ma posto 

in 

esecuzione non 

fornisce i risultati previsti. 


Esempio: 





10 


Fi:iR 1 = 1 ro 

1 5 


20 


IF 1 = 3 

1 THEN GOTO 40 

'USCITA TRAMITE 

30 


NEXT I 



35 





40 


FOR J = 1 ro 

1 IO 'Cir.1.0 

ESTERNO 

45 





50 


FO.R I = 

t IO 6- 'CtCI-O 

IN TERNO 

óO 



FRI NT "1= ■'!l 


70 


MExr t 



74' 





75 

A 

OUESTO PI.INTOI 

DOVREBBE COMPARIRE IL MES:3AGGI0: 

76' 


NEXT WIVHOUT 

FOR 


30 


NEXT J 




Posizionamento sul vecchio 
I 



Il contatore I del ciclo inter¬ 
no dovrebbe trovarsi qui 


Il contatore I del primo ciclo 
è rimasto nella pila 
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Il fatto si spiega nel modo seguente; 


- Ogni volta che viene incontrato un POR, la variabile contatore viene immagazzina¬ 
ta in una pila. Quando tale variabile raggiunge il valore limite (tramite gli incre¬ 
menti relativi al NEXT), viene tolta dalla pila (viene aggiornata la posizione del 
puntatore alla testa della pila). 

- Se però si esce da un ciclo prima che il contatore abbia raggiunto il valore limite 
(ad esempio mediante un GOTO), ii contatore stesso viene mantenuto nella pila e, 
se durante l’esecuzione del programma si incontra un altro POR che utilizza ia 
stessa variabile come contatore, il puntatore della pila si riposiziona sui vecchio 
indice, che viene considerato come contatore del nuovo ciclo. In seguito a ciò, se 
il nuovo ciclo è un CICLO INTERNO, con il riposizionamento del puntatore alla te¬ 
sta della pila vengono eliminati dalla pila stessa tutti gli indici relativi ai CICLI E- 
STERNI a quello in esame, in quanto posizionati nella pila al di sopra del vecchio 
indice 1. 

- Se però il nuovo ciclo non è ‘annidato’ con altri l’esecuzione del programma prose¬ 
gue regolarmente. 

Soluzione: per evitare inconvenienti di questo genere si può ricorrere al seguente ar¬ 
tificio: utilizzare, per uscire dal ciclo prima del previsto un’istruzione del tipo; 

IP...THEN I = valore limite: NEXT I: GOTO XX 

Un’altra soluzione consiste neH’utilizzare delle variabili particolari per i cicli da cui 
si prevede di uscire in modo anomalo. 

L’esempio seguente mostra appunto come deve essere usato questo accorgimen¬ 
to. Nell’esempio stesso infatti alla fine del ciclo POR I viene eliminato dalla pila anche 
il contatore relativo al ciclo più interno. 

IO FOR 1=1 TO 5 

20 POR J=1 TCi 4 

30 IF J=2 THEN 45 

40 NEXT J 

45 FRI NT ".J= "jJ 

50 NEXT I 
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VETTORI E MATRICI; DIM - ERASE 


Un vettore è un insieme ORDINATO di elementi. Qualora l’ordinamento dipenda da 
più parametri, i’insieme viene detto matrice. La dimensione di un vettore (cioè il nu¬ 
mero di elementi che lo compongono) viene definita tramite i’istruzione; 


VETTORE 

VETTORE 


MESE 


GIORNO $ 

MESE 

(1) 

31 

GIORNO $ 
(1) 

LUNEDÌ 



MESE 

(2) 

28 

GIORNO $ 
(2) 

MARTEDÌ 

• 

• 


• 


• 


• 


• 


• 


• 

MESE 

31 

GIORNO $ 

DOMENICA 

(12) 


(7) 



DIM Nome vet (n. elementi) 

Cosi ad esempio il vettore MESE, che contiene ii numero dei giorni relativo ai vari 
mesi dell’anno, viene dimensionato nel modo seguente: 

DIM MESE (12) 

Poiché anche i vettori possono contenere dati di diversi tipi, ii tipo dei dati viene di¬ 
chiarato utilizzando le stesse regole definite per le variabili di tipo scalare. 

Ad esempio tramite le due istruzioni: 

X = 7 

DIM GIORNO$(X) 

si dimensiona il vettore GIORNO di tipo alfanumerico composto da 7 elementi. (Os¬ 
serviamo a questo proposito che il numero degli elementi in un’istruzione di dimen¬ 
sionamento può essere espresso anche tramite delle variabili. Questa forma è però 
ammessa solo nella versione INTERPRETE del Basic; utilizzando invece la versione 
COMPILATORE si possono utilizzare per il dimensionamento solo delle costanti). 

Se ii numero di elementi di un vettore è inferiore a 10 non è necessario dichiararne 
esplicitamente la dimensione. Ciononostante si consiglia di utiiizzare anche in questi 
casi la dichiarazione esplicita DIM, sia per rendere il programma più comprensibile 
sia per risparmiare spazio in memoria. 

Osserviamo infine che con il Basic si può utilizzare anche il valore zero per l’Indice 
di posizionamento, anche se quest’opzione viene raramente utilizzata. 
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Per una matrice pluridimensionale la dichiarazione di dimensionamento viene fatta 
in modo simile a quello utilizzato per i vettori unidimensionali. 

DIM nome matrice (dimi, dim2,...) 

Consideriamo ora come esempio una matrice bidimensionale i cui elementi rap¬ 
presentano il numero di vetture di un certo tipo presenti nelle filiali di una fabbrica di 
automobili. In particolare si sono considerati 4 modelli di vetture distribuite in 5 filiali. 


M. 1 
M. 2 
M. 3 


M.4 

F. 1 F. 2 F. 3 F. 4 F. 5 


MATRICE MAC 
FILIALI 


10 

MAG (1,1) 

5 

MAG (1,2) 

15 

MAG (1,3) 

MAG (1,4) 

MAG (1,5) 











12 

MAG (4,1) 

10 

MAG (4,2) 

MAG (4,3) 

MAG (4,4) 

MAG (4,5) 


DI M MAG (4,5) predispone in memoria lo spazio per contenere una matrice di 4 ri¬ 
ghe e 5 colonne (20 elementi). L’inizializzazione della matrice con l’inserimento dei 
dati iniziali può essere realizzato nel modo seguente: 

IO DIM MAG(4,5) 

20 FOR MOD=l rO 4 

30 FuR FILIALE=1 TO 5 

40 PRI NT "MClDEI..Li:i; " ; MODf " FILI Al .E : " ; F IL I ALE 

50 INPUT"QUANTITÀ: MAG(MOD,FILIALE ) 

éO NEXT FILIALE 

70 NEXT MOD 


RUN 


MODELLO: 1 
QUANTITÀ: 
MODELLO: 1 
QUANTITÀ: 


FILIALE: 1 

L IMPERA TORE INSERISCE UN VALORE 
FILIALE: 2 

L'OPERATORE INSERISCE UN VALORE 


Se si vuole conoscere II numero di vetture di un certo modello presenti in tutte le fi¬ 
liali si può utilizzare la seguente routine; 

100 INPUT " Mi lOFLI .0 : " ; MOD 

110 TOTALE-O 

120 FOR FILI Al E = 1 TO 5 

130 TOrAtl - 1UTALE+MAG(MOD,FILIALE) 

140 NEXT FILIALE 

150 PRINT" iotale VETTURE MODELLO ";MOD;" = "•.TOTALE 

lóO GOTO 100 
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Nello stesso modo si può costruire una routine che permetta di conoscere ii nume¬ 
ro totale di vetture presenti In ogni filiale, come Illustrato nell’esempio seguente: 


200 INPUT ''FILI ALE ; " ; FILI ALE 

210 TLITAI E-0 

220 FOR MOn- 1 TO 4 

2:50 rO FAI E = rOTAl.E t-MAG < MOD, F I L I Al .E ) 

240 NEXT MOD 

250 PRINT"TOTALE VETTURE FILIALE "(FILIALE;” : "(TOTALE 

260 GOTO 200 


Anche per le matrici si può tralasciare la dichiarazione di dimensionamento qualo¬ 
ra il valore massimo per ogni indice sia inferiore a 10. 

È possibile utilizzare lo stesso nome per una variabile scalare ed un vettore mentre 
non è possibile utilizzare lo stesso nome per due vettori diversi, anche se dimensio¬ 
nati in modo differente. 


Esempio: 

Non è ammessa la forma 
DIM A (7): DIM A(10,12) 

per dimensionare un vettore ed una matrice distinti 

ERASE nome vettore,...: elimina dalla memoria centrale uno o più vettori 

100 ERASE A, NOME$ elimina dalla memoria i vettori A e NOME$ 

110 DIM A (200) definisce un vettore di 200 elementi 

Lo spazio in memoria viene recuperato in modo dinamico. Se si richiede di cancel¬ 
lare un vettore non esistente viene segnalato errore. 

(L’istruzione ERASE non è accettata dal compilatore Basic MBASIC 5.) 


10' AGGIOF'NAMENTO DI UNA MATRICE 

30 ' 

'10 R; Riri;iRNO AL CAMPO PREi;F;nF;NTE 

50 RM; RITORNO AL MODELLO PRECEDENTE 

60' RETURN; NON VIENE AiitiEGNAFO ALCUN VAI.ORE 

70' 

30 DATA "MILAMO", "TORINO","GENOVA" , "ROMA" , "NAPi'Jl.. [ " , "PAI ERMO" 

90 POR I- l TO 6;READ FIL IALE*(I);NEXT I 

100 ' 

no DATA "R5","R12","R13","R20","R30","R40" 

120 POR 1=1 TO 7(READ MODELLO*(I):NEXT I 

125' 

LSO DIM MAGI 7,6) 
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140 KOR MODIf 1.1.0= 1 TO 7 

150 FOR FU.IALE=1 TO 6 

160 PRINT"MAGAZZINO! ";MOriELL.O<KMOrieL.LO ); " - 

FU IAL E*(F U TALE ); 

170 . F-'RINT TABCSS) MAO (MOOF-LLO, F ILI ALE ) ; TAB < 35 ) s 

•'VECCHIO VALORE' 

130 INPUT X* 'NUOVO VALORE' 

190 IF X*=“R" AND FILIALE>1 THEN 

FILIALE =FILIALE-1;PRINT! GOTO 1ÓO 
200 IF X1i="RM" AND M0DELL0;>1 THEN 

M0Dei..L.0 ==M0DELl..0-2: PR I NT : GOTO ’^SO 
210 IF X*="" THEN GOTO 230 

220 X=VAL<X*)ilF X<0 OR X>100 THEN GOTO 160 

ELSE MAG(MODELLO,FILIALE)=X 

230 NEXT FILIALE 

240 PRINT 

250 NEXT MODEI.LO 

260^ 

280' 

290-' RUN 
300' 

310'MAGAZZINOj R5 - MILANO 0 5 

320'MAGAZZINO: R5 - TORINO 0 7 

330' : : : 1 : : 
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DATA - READ - RESTORE 


Data valore 1, valore 2,... 

L’istruzione DATA permette di definire un insieme di dati (costanti) che verranno 
poi utilizzati nel corso del programma. Il file definito mediante questa istruzione può 
essere solo letto. 

10 DATA 31,28,30.31 

20 DATA LUNEDÌ.DOMENICA 

READ variabile 

Assegna alla variabile specificata i valori contenuti nel file DATA in modo 
sequenziale. 


MODELLI 


VETTORE 


VETTORE 


MESE GIORNO $ 


31 


LUNEDÌ 

• 


• 

• 


• 

• 


• 

• 


• 

31 


DOMENICA 


100 

110 

120 

200 

210 

220 


POR I = 1 TO 12 
READ MESE (I) 
NEXT I 

POR I = 1 TO 7 
READ GIORNO$(l) 
NEXT I 


assegna i valori al vettore MESE 
assegna i valori al vettore GIORNOS 


Quando viene incontrata la prima istruzione READ viene assegnato alla variabile 
indicata il primo valore definito In DATA. Quando viene incontrata la seconda istru¬ 
zione READ viene assegnato il secondo valore di DATA, e così via. 

In questo modo vengono assegnati tramite le istruzioni READ i valori definiti in DA¬ 
TA In modo sequenziale. Qualora in un programma compaiano più istruzioni DATA, i 
valori in esse contenuti vengono considerati come facenti parte di un unico insieme, 
ordinato rispettando l'ordine con cui ie istruzioni DATA sono inserite nel programma. 

Qvviamente per ogni assegnazione il tipo del valore letto dal file DATA deve essere 
in accordo con quello dichiarato per la variabile a cui deve venire assegnato. 

Bisogna inoltre fare molta attenzione durante la scrittura delle istruzioni DATA In 
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quanto un errore in fase di battitura, per esempio i’omissione di un dato, faiserebbe 
poi tutta i’esecuzione del programma. 

Per questi motivi in genere i valori contenuti nei DATA vengono letti nella fase ini¬ 
ziale del programma e trasferiti in vettori o matrici a cui si possa poi in seguito acce¬ 
dere in modo diretto. 

Si può anche, in fase di messa a punto del programma, controllare che la lettura 
dei valori contenuti nei DATA venga fatta in modo corretto. Per assicurarsi di ciò è in 
genere sufficiente far visualizzare il valore che ogni variabile assume dopo l’assegna¬ 
zione. 

Come abbiamo già detto i DATA, qualunque sia la loro collocazione aH’interno del 
programma, vengono visti, in fase di lettura, come un unico insieme ordinato dì dati. 
L'ordine di lettura di tali dati può essere modificato solo tramite l’istruzione RESTO- 
RE. 

Nei DATA i dati numerici che devono essere considerati come stringhe di caratteri 
devono essere racchiusi tra virgolette ("). 

DATA “3”, "6”, "8”; POR 1= 1 TO 3: READ X$ (I): NEXT I 

Nello stesso modo vanno racchiuse tra virgolette quelle stringhe che contengono 
anche caratteri di separazione 

20 DATA "MAG;", “PIPPO, PLUTO”, ... 

RESTORE 

Questa istruzione viene utilizzata quando si vuole modificare l’ordine di lettura dei 
vari DATA. 

RESTORE n° di riga provoca un posizionamento del puntatore di lettura sul DATA de¬ 
finito nella riga specificata. 


10 

20 

30' 

40' 

50 

60 


DATA 3,4,5 
RESTORE 100 


READ X:RF.AD Y;READ Z 
PRINT X,Y,Z 


'POSIZIONAMENTO DEL PUNTATORE DI 
LETTURA SULLA RIGA 100' 


100 


DATA 7,8,9 


RUN 


7 8 9 
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STRINGHE DI CARATTERI 


. LEFT$ RIGHTS MID$ 

. LEN 

. STR$ VAL 
. ASC CHR$ 

. INSTR 

. STRINGS SPACES 
. OCT$ HEX$ 

. FRE (X$) 

La parte di memoria riservata per la memorizzazione delle stringhe di caratteri è, 
come abbiamo già visto, o definita esplicitamente tramite il comando CLEAR o as¬ 
sunta automaticamente uguale a 1000 bytes o a 1/8 della capacità della memoria 
stessa (tra questi due vaiori viene utiiizzato il minore). 

L’assegnazione di una stringa di caratteri ad una variabile viene effettuato nei mo¬ 
do seguente: 

nome var$ = “stringa di caratteri" 

Esempio: 

10 NOME$ = “ANTONiO” 

Le virgolette prima e dopo ANTONIO stanno ad indicare che ANTONIO deve esse¬ 
re considerato come una stringa di caratteri e non come il nome di una variabile. La 
lunghezza di una stringa di caratteri, che non deve essere dichiarata, può variare du¬ 
rante l’esecuzione del programma ma non può mai superare i 255 caratteri. 

Due stringhe possono essere concatenate mediante l’operatore + come illustrato 
nell’esempio seguente: 


IO NOMEt = ''PIt:TRO" 

l'O PNOMf:*== ■' PAOLO" 

"rio MI-« Mijl-IES vPNOliE* 

40 FRINT NP$ 

RUN 

PIETROPAOLO 


Confronti tra stringhe 

Il confronto tra due stringhe viene effettuato utilizzando gli operatori logici 

= <>><<==> 
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Il confronto viene effettuato carattere per carattere, da sinistra verso destra. 
Quando viene incontrata una coppia di caratteri diversi verrà considerata maggiore la 
stringa contenente il carattere con codice ASCII maggiore. 

Osserviamo che questo criterio rispetta l’ordinamento alfabetico. (GIOVANNI è 
maggiore di GIORGIO). 

Se invece tutti i caratteri componenti le due stringhe sono rispettivamente uguali si 
avrà una relazione di uguaglianza. 


Esempio: 

10 INPUfRISPCiNDI'SI O NO"sR* 

20 IF R*="3r' rUGN PRINT "HAI RISPOSTO SI"!GOTO 60 

30 IF R*="NO" THEN PRINT "HAI RISPOSTO NO";GOTO 60 

40 IF R*="" THEN PRINT "PERCHE NON HAI RISPOSTO?": GOTO 10 

50 PRINT "RISPOSTA NON ACCETTABILE" 

60' PROSECOZIONE PROGRAMMA 


Nota: per permettere una corretta gestione del test della riga 40, utilizzando il TRS80 
occorre modificare la riga 10 nel modo seguente: 

10 R$=‘‘”:INPUT... 


LEFTS, RIGHTS, MID$ 

LEFT$, RIGHT$, MID$ permettono di utilizzare solo una parte di una stringa par¬ 
tendo rispettivamente da sinistra, destra o da una posizione intermedia. 

LEFT$(STRINGA$, n° di caratteri a partire da sinistra) 

RIGHT$(STRINGA$, n° di caratteri da considerare partendo da destra) 
MID$(STRINGA$. posizione iniziaie, n° caratteri) 


Tutti i parametri che rappresentano gli argomenti delle funzioni sopra descritte 
possono essere rappresentati anche da espressioni. 

I valori di ‘posizione iniziaie’ e 'n° caratteri’ devono essere interi e compresi tra 0 e 


255. 

Esempio: 


X$ 


SX$ = LEFT$(X$,3) 
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10 

X*="SIGMAFa GROSSI" 



;;0 

SXS-=LeFTS(X*,3) 

-■TRe CAPAI IERI 

A SINISTRA' 

30 

N0MEl;^MIU*(XS,4,5) 

'5 CARATTERI A 

PARTIRE DAL QUARTO' 

40 

COGNOME* 'RIOHT* < XS,5) 

'ULTIMI 5 CARATTERI' 

i:.o 

PRINT SX*,COGNOME*,NOME* 



RUN 





SIG ROSSI MARIO 


Esempio: 

10 INPUT "RISPONDI SI O NO”; R$ 
20 IF LEFT$(R$, 1)= “S” THEN... 
test sulla risposta dell'operatore 


Esempio: 


IO NOMEt'-'‘RAOLO" 

20 POR I=1 ro 5 

30 F’RINT L.EFT*(NOME*, I ) 

40 NEXT I 

RUN 


P 

PA 

PAO 

PAOL 

PAOLO 

Se II numero di caratteri specificati supera quello dei caratteri contenuti in ‘strin¬ 
ga’, le funzioni LEFT$, RIGHT$, MID$ restituiscono l’intera stringa. 


Se nella funzione MID$ non viene considerato il parametro ‘n° di caratteri’ la fun¬ 
zione stessa diviene equivalente alla RIGHT$. 


Se 'posizione di partenza' va oltre l’ultimo carattere della stringa, MID$ restituisce 
una stringa vuota. 


MID$(STRINGA1$, posizione di partenza, n° caratteri da sostituire)=STRINGA 2$ 

Questa funzione permette di sostituire alcuni caratteri di ‘STRINGAI’ con quelli 
contenuti in ‘STRINGA2’. 

Esempio: 

60 MIDSC’SIGMARIOROSSI”, 4,5)=’’PAOLO’’-SIGPAOLOROSSI 

Attenzione: questa funzione non permette nè l’inserimento nè la cancellazione di ca¬ 
ratteri ma solo la loro sostituzione. 


31 



Se STRINGA2 contiene più caratteri di quelii che si intendono sostituire in STRIN¬ 
GA 1, ia sostituzione viene effettuata utiiizzando i caratteri necessari partendo dalla 
sinistra di STRINGA2. Se invece STRINGA2 contiene meno caratteri di quelli neces¬ 
sari, viene effettuata solo una sostituzione parziale. 

10 MID$(“123456’',3,2) = "XXX”-- 12XX56 

20 MID${'‘123456’',3,2) = "X” -. 12X456 

LEN (stringa) 

Questa funzione calcola il numero di caratteri contenuti in una stringa. 


IO 

NOME*="ANTONIO" 

20 

L=I.EN<NOITES) 

30 

PRINT L 

RUN 
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STR$ (X) 

Converte il valore numerico X nella stringa di caratteri corrispondente. 

IO X=123 

20 X*='5TR»(X) 

30 PRINT X*,LEN(X*) 

RUN 

12;3 4 

Nota: il primo carattere a sinistra della stringa generata dalla funzione STR$ è riser¬ 
vato al segno ed è uno spazio bianco se X è positivo e un — se X è negativo. 

10X=-1 

20 PRINT MID${STR$(X),2,1)-. 1 

VAL (stringa) 

È la funzione inversa della precedente e trasforma una stringa di caratteri (cifre) in 
un numero. 


IO 

XS="125 LIRE 

20 

X=V.AL(X*) 

30 

PRINT X 

RUN 



125 
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Se il primo carattere della stringa non è nè una cifra, nè uno spazio bianco, nè un 
I, nè un - la funzione restituisce il valore zero. 


VAL(‘‘ 123”)-> 123 

VAL(" + 123”)-* 123 

VALC'ABC”) -- 0 

VAL(“A + 12")-- 0 


ASC (carattere) 

Restituisce il valore numerico del codice ASCII del carattere specificato. 


10 

X*="A" 

20 

X'=ASC(X1i) 

30 

PRINT X 

RUN 
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ASC (stringa) 

Restituisce il codice ASCII del primo carattere della stringa. 

PRINT ASCC'BUONGIORNO”)-- 66 

Viene segnalato errore se l’argomento della funzione è una stringa vuota. 

CHR$(X) 

È la funzione inversa della precedente e restituisce il carattere avente il codice A- 
SCII corrispondente al valore di X. 

X, che può essere espresso tramite una costante o una variabile oppure una espres¬ 
sione, deve essere intero e compreso tra 0 e 255. 

IO FCIR 1*65 TO 65+26 

20 PRINT CHRS(I); 

30 NEXT I 

40' 

50' RUN 
60' 

70' ABCDE.Z 


Conversione MAIUSCOLO — minuscolo 

PRINT CHRSiASCC'A”)+32) -. a (cfr. tabella dei codici ASCII) 
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10 INPUT" INSERITE II. VOSTRO NOME! "jNOMÉ* 

20 POR 1=1 TO LEN(NOMet) 

30 PRI NT CHR* ( ASC (M I D*( NOME »,I, 1 )) +02 ) ; 

40 NEXT I 


RUN 

INSERITE IL VOSTRO NOME: ANTONIO 


ari tori io 

Caratteri speciali (di controllo) 

PRINT CHR$(7) -« attiva il segnale acustico 

PRINT CHR$(13)-• provoca il ritorno all’inizio della riga 

(senza salto di riga) 

PRINT CHR$(10)-> provoca un salto di riga 

La funzione CHR$(X) è notoriamente utilizzata per inviare dei segnali di controllo 
alle periferiche (terminale, stampante, plotter,...). Il vantaggio di questa funzione 
consiste nel permettere la visualizzazione di tali caratteri di controllo nel listing del 
programma. 

Utilizzando invece i tasti di controllo, posti direttamente sulla tastiera, per definire 
delle istruzioni da inserire in un programma, qualora tale procedura fosse permessa 
si otterrebbero questi due effetti; 

- in fase di list i caratteri di controllo utilizzati verrebbero trasmessi al terminale co¬ 
me segnali di controllo da interpretare. Ad esempio un “Control G” (codice ASCII 
= 7) provocherebbe un segnale sonoro. 

- I caratteri interpretati come segnali di controllo non verrebbero inseriti nel listing. 
Esempi diversi 

Cancellazione dell’ultimo carattere di una stringa 

10 X»="DOPPIO" 

20 X-t=l>:FT»(X*,I.EN(X«)-l ) 

30 PRINT X* 

RUN 

DOPPI 

Troncamento di una stringa o sua normalizzazione su una lunghezza prefissata 
10 X*="PIPPO" 

20 Y*=RIOHT»(" "+X*,10) 

30 PRINT "A"!Y*, LEN(Y*) 

RUN 


A PIPPO 10 
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Inserimento di un carattere in una stringa 


IO Z*="AAAAAAA'’ 

20 X* = "3":L=3. 

30 Z*=LEFT*<Z<i,L)+X*+RIOHT*<Z*,LEN(Z*)-L) 

40 PRINT Z» 

RUN 


AAABAAAA 


Completamento di una stringa con una serie di zeri a sinistra 


IO X=123 

20 X*^RIGI-n*(SIR1i(100000+X ),5) 

30 PRINT X» 

RUN 


00123 


INSTR (posizione di partenza, stringa, stringa cercata) 

Ricerca la posizione di una determinata stringa in un’aitra a partire da posizione di 
partenza’. Quest’ultimo parametro, quando non è specificato, viene assunto automa¬ 
ticamente uguale a 1. 

- Se la stringa cercata non viene trovata, la funzione assume il valore 0. 

~ Se invece essa è vuota, la funzione assume il valore specificato in ’posizione di 
partenza’. 

- Se ‘posizione di partenza’ oltrepassa l’ultimo carattere di ‘stringa’ la ricerca non 
viene effettuata e la funzione assume il valore zero. 

Es. 

IO XS="R0S3I.MARIO" 

20 X=IN3TR<X*, ) RICtRCA DEL CARATIERf; 

30 YS=LEFTIi(XS, X-1 ) 

40 PRINT Y*,X 

RUN 

ROSSI é 

Es.: PRINT INSTR (3,"ABAABAAA”, “B”)-5 
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Esempi d’applicazione della funzione INSTR 


Conversione esadecimale-decimale 


10 

20 X-INSTR ( "0r23456789AElCDt F" , X4i )-l 

SO FRI NT X 

RUN 

12 


Conversione alfabetico - numerica 

La routine presentata permette di utilizzare dei codici operativi di tipo ietterale an¬ 
ziché numerico (l'utente li ricorda con maggior facilità). 


10 

20 

30 

40 


INPUT"INSERIRE CODICE OPERATIVO: ":COD» 

X=^INSTR(" CABMPQ" , COD* ) 'RICERCA POSIZIONE DEL. CODICE' 

ON X GOTO 10,200,300,500,650,700,750 'SALTO ALLA ROUTINE 

INTERESSATA' 


GOTO 10 


Nota: Se COD$ è una stringa vuota si ha X=1. Per questo motivo il primo carattere 
della stringa utilizzata nell’istruzione 20 è stato posto uguale ad uno spazio bianco. 

Verifica su un carattere 

Questa routine permette di verificare se il carattere battuto sulla tastiera appartie¬ 
ne ad un insieme di caratteri accettabili (nell’esempio le cifre decimali ed il punto). 


10 

X*=INPUT*<1) 


20 

X=INSTR("012 

345Ó7S9 

30 

IF X=0 THEN 

GOTO 10 

40 

Y*=Y'SfX1i 


50 

PRINT X*? 



'LETTURA DI UN CARATTERE' 
RICERCA DEL CARATTERE' 

■' CARAT TERE RIE!UTATO' 
'ACQUISIZIONE DEL CARATTERE' 
'VISUALIZZAZIONE DEL CARATTERE 


100 GOTO 10 


STRINGS (n. volte, stringa) 

Genera una stringa di caratteri uguale a quella specificata, ripetuta n volte. 

10 X*=STRING1i(10,) 'GENERAZIONE DI IO PUNTI ' 

20 PRINT X« 

RUN 
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Il programma seguente completa delle stringhe con del punti a destra: 


IO 

20 

30 

40 

50 

óO 

70 

RUN 


SPACES (X) 

Genera una stringa formata da X spazi bianchi. X può essere anche un’espressio¬ 
ne. 


10 

X S=" M AR10 '• >SP ACES < 10 ) + " F 

TOSSI 

20 

PRINT XS 


RUN 




MARI0 ROSSI 



Osservazione: la funzione SPC, che a differenza della SPACES non genera alcuna 
stringa, può essere usata solo in corrispondenza di un PRINT. 

OCTS (espressione) 

Genera una stringa di caratteri che rappresenta II valore ottale dell’espressione in¬ 
teressata. 

PRINT OCT$(24)-. 30 

HEX$ (espressione) 

Genera una stringa di caratteri che rappresenta il valore esadecimale dell’argo¬ 
mento decimale. 

PRINT HEX$(26)-- 1A 

FRE (X$) 

Fornisce lo spazio ancora disponibile in memoria per memorizzare delle stringhe 
di caratteri (X$ è un argomento fittizio) 

PRINT FRE(X$)-. 1000. 


NZS( 1 ) = "CDCiNOriE" 

NZ*(2)="N0Me’' 

NZ»(3)="DATA DI NASCITA" 

FOR 1=1 ro 3 

PRINT NZ*(I )!STR1NC*((20-LFN(NZS<I 
INPUT XS(I) 

NEXT I 


COONOME.ROSS I 

NOME.MARIO 

DATA DI NASCITA.21/7/1950 
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STAMPE 


PRINT POS 

TAB LPRINT 

SPC WRITE 

PRINT USINO WIDTH 

La stampa del risultati non è certo la parte più nobile dell’Informatica ma riveste 
tuttavia una certa importanza. Infatti ogni volta che si deve stampare una serie di dati 
è indispensabile predisporre un tabulato che renda I risultati di facile consultazione. 


PRINT espressione 

L’istruzione PRINT seguita da una costante, da una variabile o da un’espressione 
genera la visualizzazione sul terminale (sia esso video o a stampa) del valore di quel¬ 
la costante (o variabile o espressione) e il riposizionamento del cursore all’Inizio del¬ 
la riga successiva. 

IO X = 

20 PRINT X 

RLIN 

123 

PRINT 

La visualizzazione di più valori su una stessa riga può essere ottenuta semplice- 
mente separando i nomi delle variabili, nell’Istruzione PRINT, mediante delle virgole. 

10 SOMMA=200:NUMERO=10 

20 PRINT SOMMA, NUMERO, SOMMA/NUMERO,1981 

' / / / 

10 20 1981 


RUN 




200 


Utilizzando la virgola come carattere separatore si ottiene la visualizzazione dei 
dati in campi prestabiliti (con inizio ad esempio alla colonna 1, 15, 29, ...). Ciascun 
dato viene inserito nel campo partendo da sinistra. 


PRINT 

Un punto e virgola alla fine dell’istruzione PRINT inibisce il riposizionamento a ca¬ 
po del cursore. Inoltre, nel caso in cui l’istruzione PRINT faccia riferimento a più va¬ 
riabili, utilizzando come carattere separatore il punto e virgola si ottiene il seguente 
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effetto: le stringhe di caratteri stampate vengono concatenate, mentre i valori nume¬ 
rici vengono separati tra loro da uno spazio bianco. 

IO NOt1E$="MARIO"?Ci3GNOME't-"ROS:JI " 

2Ó PR1 NT nome; * ì SPC ( 3 ) ! COGNOME * 

RUN 

« 

MARIO ROSSI 

PRINT "ROSSI”: " "MARIO”-* ROSSI MARIO 

PRINT 123:456; -789 -. 123 456 -789 

PRINT TAB (X) 

La funzione TAB(X) (X può essere un’espressione) permette di posizionare, in fase 
di stampa, il cursore sulla colonna X. 

10 A=123:B=456 

20 PRINTA:TAB (15) B 

RUN 

123 456 

t 

15 colonna 


Attenzione: il cursore o la testina di scrittura non possono retrocedere. Pertanto la 
funzione TAB (X) è priva di effetto se la colonna indicata da X è precedente a quelia 
su cui è posizionato in quel momento il cursore. 

PRINT SPC(X) 

La funzione SPC genera X spazi bianchi a partire dalla posizione occupata dai cur¬ 
sore. 

IO NOME'r.= "MARIO" ! COGNCiME*= "RGSSI " 

20 PRINI-NOME * } COGNOME* 

RUN 

MARI0R03SI 

PRINT USINO # . +- ••$$•*$_ % \\ ! & 

L’istruzione PRINT USINO è senza dubbio il mezzo più potente per organizzare dei 
tabulati in BASIC. 
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Variabili numeriche: Come abbiamo visto SENZA il PRINT USiNG i VALORI NUME¬ 
RICI vengono inseriti nella parte SINISTRA del campo, mentre per la maggior parte 
delle applicazioni occorrerebbe un INCOLONNAMENTO A DESTRA. 

PRINT USING "#####”; espressione numerica 

Il campo è definito dal numero di # (ciascun # rappresenta una cifra) e l’incolon- 
namento viene fatto partendo da destra. 


IO 

X = 123 

!Y=t234 

20 

PRINT 

USINO"#####"jX 

30 

PRINT 

USING"#####";Y 

RUN 




123 
1234 


Utilizzando invece la semplice istruzione PRINT si sarebbe ottenuto: 

123 

1234 

Nella definizione del campo la serie di # può essere rappresentata tramite una va¬ 
riabile alfanumerica. 


IO 

X = r23: 

Y-1234 

20 

FMTSi==^" 

#####" 

30 

PRINT 

USING FMT»;X 

40 

PRINT 

USING FMT»;Y 

RUN 

123 

1234 



PRINT USING “###.#’’; espressione numerica 

Il numero di # posti dopo il quarto sta ad indicare la precisione con cui deve essere 
stampato il valore dell’espressione (cioè il numero di cifre dopo la virgola). 


10 

20 

RUN 


X=123.456 
PRINT USING 
123.46 
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Come si vede il vaiore da stampare viene arrotondato automaticamente. 


FORMAT MULTIPLO: PRINT USINO “formati format2”; espi, esp2 
Con questa istruzione è possibile associare ad ogni vaiore da stampare un format 
differente 

10 X=123.456:Y=67 r- \ 

20 PRINT usiNG "####:## ## ##”; X-,Y 

RUN L _J 

123.46 67.00 


SPECIFICHE: PRINT USINO "speci formati spec2 format2”; espi, esp2 
in fase di stampa vengono inseriti i messaggi specificati. 


IO 

20 


RUN 


;'’RiNr !,"5 


KG 


■:.7 : Y---10 / 

INO " F^ESO KG #»#»#. tu» PARA X ftf*. 



1 ;!34.57 TARA X 10.00 




; X, Y 


Se si deve usare un unico format per tutte le variabili si può usare anche ia forma; 

10 X = i;'3:Y-.456:Z=789 

20 PRINT usimi:. "####" jX.Y.Z 

RUN 


123 4*5/:. /3'? 


+ il segno se non è specificato nei format non viene visualizzato: 


5 PRINT USINO “ ####”: 123-. 123 

10 PRINT USINO "+####": 123-. +123 

20 PRINT USINO “+####”: -123-. -123 

un segno ” alla fine del format provoca la stampa, in caso di valore negativo, 

dei segno ” dopo il numero anziché prima. 

10 PRINT USINO “####-”: -325 - 325- 

20 PRINT USINO "####-”; 325 . 325 


2 asterischi all’inizio del format, oltre ad ampliare il campo di due spazi, provo¬ 
cano in fase di stampa il completamento a sinistra dei campo con degii asteri¬ 
schi. 
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10 PRINT USINO "•*####’'; 123 -***123 

20 PRINT USINO "*•####”: 1234 -. **1234 

30 PRINT USINO 12345 -- *12345 

$$ 2 “$” airinizio del format provocano, in fase di stampa, l'aggiunta di un "$" alla 

sinistra del valore da stampare. 

10 PRINT USINO “$$####”; 23-- $23 

**$ combina gli effetti di "•*” e “$$” 

10 PRINT USINO “••$####.##”: 2.34-*****$2.34 

% se il campo prefissato è insufficiente per contenere il valore da stampare, il ca¬ 
rattere % viene stampato davanti al valore stesso 

10 PRINT USINO “###”: 12345 -%12345 

_ il carattere definisce come carattere di commento quello che lo segue nel 
format. Con questo accorgimento si possono usare in commento anche dei ca¬ 
ratteri funzionali. 

10 PRINT USINO "_.A=####”: 123-> .A= 123 

Stringhe di caratteri 

PRINT USING‘•\ \"; stringa 

Il numero di spazi compreso tra le due "\” definisce il NUMERO DI CARATTERI di 
stringa -2 da stampare. 

IO X*^"RfcNrMU T" 

20 PRINT USING "N 

RUN 

RENALI 


PRINT USING “I”: Stringa 

Provoca la stampa del primo carattere della stringa 

PRINT USING stringa 

Permette di non definire l’ampiezza del campo. Il campo viene definito automati¬ 
camente dalla lunghezza della stringa. 
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10 C00N0riE*= "ROSSt" ; NOME*-"MARIO" 

20 frinì usino "8, !" p COGNOME*, NOME $ 

RUN 

RCiSS I M 


Stampa combinata di vaiori numerici e aifanumerici 

Si possono definire mediante un unico PRINT USING i formate reiativi a valori nu¬ 
merici ed alfanumerici: 


10 X*="FIAT" 

20 rIPO=127!C0ST0=3000000:SCON10=10 

30 PRINT USINO "MODEU O \ \ ### COSTO ####»## SCONTO ## X" 

X *,TIPO,COSIO,SCONTO m 

! ; ! '5 -/ 

RUN ; I 

* * « k. 

MODELLO FIAT 127 COSTO SOOOOC)C> S;CONTO 107. 


Programma per il controllo dei dati 

Il programma seguente permette di comunicare in fase di input, oltre al dato che II 
format con cui dovrà essere poi stampato. 

10 INPUT "VALORE, FORMAT”:N,FMT$ 

50 PRINT USING FMT$:N 

RUN 

VALORE,FORMAT 12.3,###.## 

12.30 

POS (0) 

Restituisce la colonna sui cui è posizionato in quel momento il cursore (l’argomen¬ 
to 0 non viene utilizzato). 

100 PRINT"XXXX";:A=P0S(0): PRINT 

110 PRINT TAB(A) "YYYY" 

RUN 


XXXX 

YYYY 
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LPOS(O) 

Dà la posizione della testina di scrittura della stampante. 

100 IF LPOS(O) > 80 THEN LPRINT 

LPRINT 

Questa istruzione genera l'output su stampante. Con essa si possono utilizzare tut¬ 
te le opzioni ammesse per il PRINT. 


WRITE espi, e8p2, ... (versione 5.) 

Ha la stessa funzione del PRINT... ma separa i singoli valori con delle virgole e 
stampa le stringhe tra virgolette. 


IO A-SO:B=90:"ALFA" 

20 WRITE A.B.C. 

RUN 


SO,90,"ALFA" 


WIDTH lunghezza (versione 5.) 

Precisa il numero massimo di caratteri da visualizzare su una riga del video (se 
non si utilizza la funzione WIDTH tale numero è 72). Nel sistema Basic, una volta 
raggiunto il limite massimo di caratteri per una riga, si ha II riposizionamento automa¬ 
tico del cursore all’Inizio della riga successiva. 

Il numero massimo di caratteri, che può essere specificato anche tramite un’e¬ 
spressione intera, deve essere compreso tra 15 e 255. Con il valore 255 si definisco¬ 
no stringhe di lunghezza ‘infinita’. Utilizzando quest’ultima opzione la funzione 
WIDTH permette di inviare dalla tastiera un qualunque numero di caratteri speciali di 
controllo senza il pericolo che II Sistema Operativo inserisca automaticamente dei 
RETURN (CR) in modo inopportuno. Inoltre il valore di POS(O) viene riposizionato a 
zero dopo la battitura di 255 caratteri. 

100 WIDTH 120 


WIDTH LPRINT n 

Viene utilizzato per la stampante. 
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SOTTOPROGRAMMI GOSUB - RETURN 


Se si deve inserire più volte la stessa sequenza di istruzioni nel corso di un pro¬ 
gramma, si può ricorrere alia struttura di sottoprogramma che permette di scrivere 
taii istruzioni una voita sola. 



Un sottoprogramma Basic è formato da un insieme di istruzioni, inserite nei pro¬ 
gramma principale, che seguono la numerazione del programma, il sottoprogramma 
viene richiamato tramite un’istruzione GOSUB xx. Quest’istruzione genera nell’ese¬ 
cuzione del programma un salto all’istruzione xx (come se fosse un GOTO). Quando 
poi, proseguendo l’esecuzione si incontra un RETURN, si ha un nuovo salto all’istru¬ 
zione immediatamente successiva al GOSUB di chiamata. 

Un sottoprogramma può a sua voita chiamarne un altro, e cosi di seguito. Per assi¬ 
curare il corretto ritorno nel caso di sottoprogrammi concatenati, il sistema opera nel 
modo seguente: 

Ogni volta che viene eseguita un’istruzione di GOSUB, l’INDIRIZZO DI RITORNO 
(indirizzo dell’istruzione successiva al GOSUB stesso) viene immagazzinato in una 
pila 0 STACK (struttura LIFO: Last in First Out) e, ogni volta che viene eseguito un 
RETURN l’indirizzo di ritorno viene prelevato dalla testa della pila stessa. 

Per questo motivo non conviene entrare o uscire da un sottoprogramma mediante 
dei salti incondizionati del tipo GOTO. 
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PILA DEGLI INDIRIZZI DI RITORNO 


Se si entra in un sottoprogramma tramite un GOTO, il sistema segnalerà errore so¬ 
lo se al momento del RETURN troverà la pila degli indirizzi vuota. 

La scelta della struttura a sottoprogramma non è dettata solo dal desiderio di ri¬ 
sparmiare spazio in memoria ma anche, e soprattutto, per le seguenti ragioni: 


- utilizzando i sottoprogrammi si ottiene un programma più articolato e quindi più 
comprensibile; 

- l’uso dei sottoprogrammi permette di ripartire il lavoro di programmazione tra più 
persone: 

- la messa a punto può essere fatta per un sottoprogramma alla volta: in questo mo¬ 
do risulta notevolmente facilitato il lavoro; 

- non utilizzando i sottoprogrammi, oltre a dover scrivere più volte le stesse sequen¬ 
ze di istruzioni, si dovrebbero riportare più volte le eventuali correzioni che si ren¬ 
dessero necessarie in fase di messa a punto (cosa piuttosto noiosa) e si rischie¬ 
rebbe quindi di rimettere, in discussione l’intero lavoro; 

- utilizzando i sottoprogrammi si può facilmente modificare la struttura dell’intero 
programma. È infatti possibile aggiungere o togliere delle routines dal programma 
modificando solo le istruzioni di chiamata. 


I vantaggi derivanti dall’uso dei sottoprogrammi sono indubbiamente notevoli. Per¬ 
tanto consigliamo di utilizzarli ogni qualvolta se ne presenti l’opportunità. 
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ON...GOTO... - ON...GOSUB... 


ON X GOTO ni, n2,... 

(test multiplo su X) 

Qitesta funzione provoca un s^lto alla linea ni o n2 o n3... rispettivamente nei casi 
in cui X assume il valore 1 o 2 o 3... 


10 

20 


100 


INPUT ‘'CONDIZIONE 1,2, 3 ?”; X 
ON X GOTO 100, 1000, 1500 


/ / / 

X^1 X=2 X=3 


routine 1 


1000 routine 2 


1500 routine 3 
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Se II valore di X non è Intero viene arrotondato 
Se X<0 o X>255 si ha segnalazione di errore 

Se ad un valore di X non corrisponde alcun numero di linea o se X=0 si ha un salto al¬ 
la riga successiva. 

Tenendo conto di ciò assume significato il seguente programma: 

IO ON X GOTO 100,1000,1500 ' (X- 1,2,3)' 

20 ON ( X -5 ) GOTO 200, 300, 400 ' ( X ==é, 7, S ) 

30 PRINT X;"VALORE NON ACCErTABILE" ' (Al TRI VALORI ) ' 

40 STOP 


ON X GOSUB ni, n2,... 

Si ha un salto al sottoprogramma avente inizio alla riga ni o n2... rispettivamente 
nel caso in cui X assume il valore 1 o 2... 


In ogni caso il RETURN provoca un ritorno all’istruzione successiva a quella di 
chiamata ON. 


10 ON X GOSUB 100, 1000,1500 
20 . 

100 ... 

190 RETURN 


istruzione a cui tornano i 
vari sottoprogrammi 
sottoprogramma 1 


1000 ... sottoprogramma 2 

1050 RETURN 


1500 ... sottoprogramma 3 

1650 RETURN 


Test sulle condizioni all’uscita da un sottoprogramma 

Nei sottoprogrammi si utilizza spesso un parametro, detto parametro “spia”, che, 
passato al programma principale, rivela la presenza o meno di alcune condizioni par¬ 
ticolari intervenute durante l’esecuzione del sottoprogramma. Per testare questo tipo 
di parametro risulta particolarmente efficace la forma del tipo ON Q GOTO... come il¬ 
lustrato nell’esempio. 
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100 GOSUB 1000;ON Q GOTO 200,300,400 


200 prosecuzione normale 


300 gestione dell’errore di tipo 1 


400 gestione dell'errore di tipo 2 



ON ERROR GOTO.. - ERR - ERL - RÉSUMÉ.. - ERROR.. 
(Trattamento di errori) 


Utilizzando l’istruzione ON ERROR, ogni qualvolta viene riscontrato un errore in fa¬ 
se di esecuzione del programma si provoca un salto ad una apposita routine per il 
trattamento degli errori. 

Tale routine analizza l’errore avvenuto testando i valori di ERR ed ERL, in cui il si¬ 
stema ha posto il codice dell’errore, ed il n° di linea in cui l’errore si è prodotto. 


Dopo il riconoscimento ed il trattamento dell’errore mediante l’istruzione RÉSUMÉ 
si può far riprendere il programma da un particolare punto. 

IO ON ERROR GOTO 100 

20 INPUT "DIVISORE "fX 

30 PRINT 100/X 

40 GOTO 20 

lOO IR ERR=11 AND ERL=30 THEN PRINT"IL DIVISORE 0 NON AMMESSO": 

RÉSUMÉ .20 

110 PRINT "ERRORE NON RICONOSCIUTO": STOP 


ON ERROR GOTO 0 

Inserito nella routine per il trattamento degli errori annulla l’effetto dell’istruzione 
ON ERROR GOTO., e passa il controllo al sistema. 

RÉSUMÉ 

Scritto alla fine della routine per il trattamento degli errori indica da dove deve es¬ 
sere ripreso il programma principale. 
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RÉSUMÉ: 

0 RÉSUMÉ 0 


l’esecuzione riprende dall’istruzione che aveva generato 
l’errore. 


RÉSUMÉ NEXT: l’esecuzione riprende dall’Istruzione successiva a quella 
che ha provocato l’errore. 

RÉSUMÉ n: l’esecuzione riprende dalla riga specificata. 

ERROR 

ERROR n: permette all’utente di definire dei propri codici di errore 

(compresi tra 0 e 255) e provoca un salto all’istruzione ON 
ERROR... come se il sistema avesse riconosciuto un errore. 

10 ERROR 153: provoca un salto ad ON ERROR... 

Nota: L’istruzione ON ERROR GOTO... viene generalmente posta in testa al program¬ 
ma in modo che venga riconosciuta dal sistema prima che sopraggiunga qualche er¬ 
rore. 
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FUNZIONI 

Funzioni aritmetiche 

L’argomento X dì queste funzioni può essere una costante, una variabile o una e- 

spressione aritmetica. 

ABS(X) Fornisce il valore assoluto di X. 

100 PRINT ABS (-35)-. 35 

ATN(X) Fornisce l’arcotangente di X, espresso in radianti, (valori compresi 

tra -Jt/2 e n/2) 

CDBL(X) Converte X in doppia precisione (16 cifre significative). Ciò permette 
di effettuare una operazione in doppia precisione. 

100 FOR 1% =1 TO 10: PRINT 1/CDBL(1%): NEXT 1% 

CINT(X) Converte X in un intero mediante un arrotondamento 

100 PRINT CINT( 1.6)-. 2 

110 PRINT CINT(-1.2)--1 

(X deve essere compreso tra -32768 e 32767) 

COS(X) Fornisce il valore del coseno di X (X in radianti) 

CSNG(X) Converte X in semplice precisione (6 cifre significative) 

100 X=1234.56789123:A=CSNG(X):PRINT A-. 1234.57 

EXP(X) Fornisce la funzione esponenziale di X. 

FIX(X) Sopprime le cifre dopo il punto decimale. 

100 PRINT FIX( 2.2)- 2 

110 PRINT FIX(-2.6)-. -2 

FRE(O) Restituisce il numero di bytes disponibili in memoria (l’argomento 

non viene utilizzato) 

INT(X) Fornisce la parte intera di X. 

100 PRINT INT( 2.2)-- 2 

110 PRINT INT(-2.2)-. -3 

LOG(X) Fornisce il logaritmo naturale di X. 

RANDOMIZE (non è una vera e propria funzione). Viene utilizzata per inizializzare 
il generatore di numeri casuali. Quando, in fase di esecuzione, viene 
incontrata questa funzione, viene richiesto all’utente di inserire un 
valore a piacere (compreso in un certo campo) e mediante questo 
valore viene inizializzato il generatore di numeri casuali. Senza que- 
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sto accorgimento la serie di numeri casuali generata risulterebbe 
sempre uguale. 

10 RANDOMIZE 

20 POR 1=1 T0 5; PRINTRND(1)::NEXTI 

RUN 

Random Number Seed (0-65529)? 3(3 è la risposta dell'operatore) 
.88598 .484668 .586328 .119426 .709225 


RND(X) 

X>0 0 senza X 

X—0 

-* numero casuale seguente 

___k ctAcen niirTìAm OACilalfii 



X<0 

* OlvOOIii/ IIUIIIvlw V/dOUdlC/ 

-> ricomincia la sequenza 


Es.; POR 1=1 T0 5: PRINT INT(RND(1)'*100)::NEXT I 
RUN 

24 30 31 51 1 

Sul TRS80 la funzione RDN(X) ha il seguente effetto: 

0<=X<1 -► numero casuale compreso tra 0 e 1 

1<X<32767-> numero casuale intero compreso tra 0 e X 

(viene considerata solo la parte intera di X). 

SGN(X) Pornisce uno dei tre valori +1, —1, 0, in relazione al segno di X e ri- 


spettivamente: 

+1 se 

X>0 

0 se 

X=0 

-1 se 

X<0 


SIN(X) Pornisce il seno di X (X in radianti). 

SQR(X) Pornisce la radice quadrata di X (X non negativo). 

TAN(X) Pornisce la tangente di X (X espresso in radianti). 


DEFINIZIONE DI FUNZIONI DEF FN 

Oltre ad utilizzare le funzioni di sistema (SOR; SGN, INI,...) l’utente può definire 
direttamente delle proprie funzioni mediante l’istruzione: 

DEF FNXX(X,Y,Z,...)=espressione (X,Y,Z,...) 
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ove XX rappresenta il nome simbolico della funzione (per comporre il nome di una 
funzione si utilizzano le stesse regole valide per i nomi delle variabili) e X, Y, Z,... gli 
argomenti della funzione stessa. 

Nota: Su alcune versioni del Basic il numero di argomenti può essere al massimo 2. 

La funzione verrà poi richiamata dal programma assegnando dei valori reali ai para¬ 
metri. 

Esempi 

Funzione di arrotondamento 

IO DKF FNAR(X)=INT(X+0.5) 

20 A = 123.L-.:B=:345.2 

30 FRINT FNAR<A) 

40 FRINT FNARCB) 

RUN 

124 

345 

Funzione per la ricerca del massimo tra due valori 

10 
20 
30 
40 

RUN 

20 

Nota: Ricordiamo che il risultato delle operazioni logiche X>Y ed X<=Y è 0 quando le 
disuguaglianze non sono verificate e —1 in caso contrario. 

Funzione di arrotondamento al centesimo 

ilo OEF FNAC(X)-=INT<X»100 0.5)/10O 

20 FRINT FNAR<123.456) 

RUN 

123.46 

Note: 

— una funzione deve essere obbligatoriamente scritta su di un’unica riga di program¬ 
ma; per la sua definizione quindi non si possono usare più di 255 caratteri. 
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DEF FNriX(X,Y)= -((X>Y)*X + (X<=Y)«Y> 

A^15!B=20 1 l 

FRINT FNMX(A,B) [_ 1 

A3Sl.lhCiN0 IL VALORE O OPPURE -1 



— si consiglia di definire le funzioni in testa al programma onde evitare che vengano 
richiamate prima della loro definizione. In tal caso infatti l’istruzione di chiamata 
verrebbe interpretata in tutfaltro modo. 

- una stessa funzione (stesso nome) può essere ridefinita più voite ail’interno dei 
programma. 


SWAP vari, var2 (versione 5.) 

Questa funzione provoca io scambio di valori tra le due variabili, che ovviamente 
devono essere dello stesso tipo. 


100 Ad ) = K>: A(2)=20 

no frinì Ad ),A(2) 

120 SWAP Ad),A(2) 

130 PRINT A<1),A<2) 

RUN 


10 20 
20 10 


WHILE...WEND (versione 5.) 

WHILE espressione logica 

WEND 

Utilizzando questa struttura tutte le istruzioni comprese tra WHILE e WEND vengo¬ 
no eseguite ciclicamente finché l’espressione logica è VERA. Nel momento in cui 
questa condizione non è più verificata, il programma prosegue dall’Istruzione succes¬ 
siva a WEND. 

Osservazione: l’espressione che segue WHiLE può essere anche aritmetica: in tai 
caso ii cicio viene eseguito finché il valore dell’espressione diventa zero. 
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10 INVERSIONE=1 
20 WHILE INVERSIONE ><0 
30 INVERSIONE=0 
40 POR 1=1 TO 9 

50 IF A{I)>A{I+1) THEN SWAP A(l), A(l+1): INVERSIONE=1 
60 NEXT I 
70 WEND 


SI potrebbe simulare la struttura WHILE con un ciclo POR nel modo seguente: 

10 POR 1=1 TO ‘infinito’ 

20 IF esp =0 THEN GOTO USCITA 

30 NEXT I 
USCITA . 


CHAIN COMMON (MICROSOFT 5.) (CHIAMATA DI PROGRAMMI) 

CHAIN MERGE nome file, inserì, ALL, DELETE lineai - Ilnea2 

Chiama un programma trasmettendo le variabili dei programma corrente. 

100 CHAIN "PIPPO” 

L’opzione ’insert’ specifica la linea da cui inizierà l’esecuzione del programma 
chiamato. 

100 CHAIN ’ PIPPO’’, 1000 

L’opzione ALL specifica che tutte ie variabili del programma corrente vengono 
passate in blocco al programma chiamato. 

L’opzione MERGE viene utilizzata qualora si desideri che una parte del programma 
chiamato ‘ricopra’ alcune linee del programma corrente. Perchè ciò sia possibile è 
necessario che i programmi siano memorizzati in ASCII. 

100 CHAIN MERGE "PIPPO”,1000 

Una parte del programma può anche essere soppressa mediante i’opzione DELE¬ 
TE. 


100 CHAiN “PiPPO”,1000,DELETE 2000-2500 
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(il compilatore BASIC non accetta le opzioni ALL, MERGE, DELETE). 

COMMON lista di variabili 

Utilizzata congiuntamente a CHAIN questa istruzione permette di passare solo al¬ 
cune variabili al programma chiamato. 

100 COMMON A,B,C,D(),0* 

HO CHAIN "PIPPO'MO 

Anche se logicamente l’istruzione COMMON può essere posta in un punto qualsia¬ 
si del programma, in genere, per motivi di chiarezza, la si utilizza in testa al program¬ 
ma stesso. 

Una variabile può essere utilizzata in un’unica istruzione di tipo COMMON. 

Se il nome della variabile è seguito dai caratteri ’()’ si passa al nuovo programma 
l’intero vettore avente quel nome. 


PEEK - POKE: (ACCESSO DIRETTO ALLA MEMORIA) 

Le istruzioni PEEK e POKE permettono di accedere direttamente a una locazione 
di memoria per leggerne o modificarne il contenuto. 


PEEK (Indirizzo) 

Questa funzione fornisce il contenuto (in forma decimale intera) della locazione di 
memoria specificata (l’indirizzo deve essere compreso tra 0 e 65536). Poiché il risul¬ 
tato rappresenta il contenuto binario di un byte, esso sarà un intero compreso tra 0 
(configurazione binaria 00000000) e 255 (configurazione binaria 11111111). 

100 A^PEEK 1000 

110 PRINT HEX*(A) 

120 PRINT HF.X*(Pt;EK .?.H:;:ES ) 

POKE indirizzo, valore 

Questa funzione inserisce nella locazione di memoria indicata la forma binaria del 
valore specificato che deve essere intero e compreso tra 0 e 255. 

200 POKE 1000, 122 

INP - OUT - WAIT (INPUT/OUTPUT) 


INP (numero della porta) 

Legge il contenuto di un byte sulla ‘porta’ specificata (il numero della porta deve 
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essere compreso tra 0 e 255). 


A=INP (255) 

OUT numero della porta, dato 

Invia un byte nella 'porta' specificata. Entrambi i parametri di questa funzione pos¬ 
sono essere forniti tramite delle espressioni. 

200 OUT 32,50 


WAIT numero della porta, maschera, selezione 

Questa funzione sospende l'esecuzione del programma finché un particolare bit 
sulla porta specificata non assume il valore 1. 

- Se 'selezione' = 0 viene effettuato un AND tra il dato in entrata e 'maschera'. 
Quando il valore cosi ottenuto è diverso da zero il programma riprende l'esecuzione; 
in caso contrario invece viene nuovamente eseguita la funzione WAIT. 

- Se 'selezione' # 0 viene prima effettuato un OR ESCLUSIVO tra il valore in entrata 
e 'selezione', in seguito viene effettuato un AND tra il risultato e 'maschera'. Si proce¬ 
de infine come nel caso precedente. 

10 WAIT 22,4 Sospende l'esecuzione finché il terzo bit (4=2^) non é settato 
sulla porta 22 

10 WAIT 22,7 sospende il programma finché uno dei primi tre bit sulla porta 
22 non risulta settato. 
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10' STAMPA DI UNA MATRICE BIDIMENSIONALE 
30' 

40 DATA "MIL-ANO " , "TORINO" , "GENOVA" , "PALERMO" , "VENEZIA" , "NAPOI.I " 
POR 1 = 1 TO 6:READ FU. t AL E* ( I ) : NEXT I 
50 DATA "R5", "Ré.", "R12", "plS", "R20", "R30", "R40" 

FOR 1 = 1 TO 7iREAD TIPO*(I ):NEXT I 
éO DIM STOCK(6,7) '7 TIPI E 6 FILIALI' 

70' 

80' AC QUISIZ I ONE DAT I 

90 STOCK(1,1)=52iSTOCK(1,2)=79;STOCK(1,3)=87:STOCK(2,2)=99i 
STOCK(2,5>=119 


HO' STAMPA CODICI FILIALI 

120 FOR 1 = 1 TO 5 

130 LPRINT TAB( 15+10) yer-roilg FiliAlC> 


140' 

VETTORE FILIALE» 

frtioiJIT 

a 

a 

m 

Ol 

ICl 

150 

FOR J=l TO ó - 


n 

Ql 

E> 

m 

'd 

160 

X»=MID*(FILIALE#(J),I, 1 );LPRINT X»;" 

d 

a 

■ai 

rai 

n 

170 

NEXT .J 


CI 

lai 

n 

m 

a 

190 

LPRINT 


Ea 


El 

tm 

a 

200 

NEXT I 


■ai 

■a 


El 

n 


220 LPRINT 5" 

240' STAMPA DELLA MATRICE 


250 FOR TIP0=1 TO 7 

260 LPRINT TAB(15) TIPO*(TIPO);TAB(15+6) 

270 T0TTIP0=0 

290 FOR FILIALE=1 TO 6 

300 IF STOCK (TIPO,FILIAL.E)<>0 TUEN 

LPRINT USINO "#####"?STOCK(TIPO,FILIALE)? 

ELSE LPRINT" 

310 TOTTIPO=TOTTIPO+STOCK(TIPO,FILIALE ) 

320 MAGA Z Z ( FILI ALE ) =MAOA Z Z ( FILI Al.E ) +STOCK ( TI PO, FILI ALE ) 

330 NEXT FILIALE 

350 LPRINT USINO"###»#";TOTTIPO 

360 NEXT TIPO 

380 LPRINT;LPRINT TAB(15+6) 

390' 

400 FOR FILIAL.E=1 TO 6 

410 LPRINT USING"#####";MAGAZZ(FILIALE); 

420 NEXT FILIALE 
430' 
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. ’O' 
■;0 ■■ 
40 
'SO ' 
':.0 ' 
70 ' 
:■<)' 
s'O" 
100 ' 
110 ' 
1 ?. 0 " 
130 ' 
140 -' 
150 ' 
160 -' 
170 ' 
180 ' 
185 ' 
190 -' 
l'Ofy 
210 -' 
215 ' 
220 ' 
225'' 
230 ' 
240 ' 
245 -' 
246 ' 
250 ' 


256' 

•■/CIO-' 
260 
270 
2S0' 
290 
300' 
310 
3;;0 
330 
335 
350 ' - 
370 
390 

400 

420 

425 


440 

450 

*460 -- 


R [ I liRCA 01 COTOM IC A 


IL METODO DICOTOMICO PER RINTRACCIARE UN CERTO ETFMTNin 
IN UNA TADEU.A ORDINATA l'.ONEUSI'E NEL ••EI F^IOMARE AD 
OGNI PAS30 UNA PORZIONE DI TABEl l A SEMPRE PIU LIMITATA 
IN CUI IL NOSTRO ELEMENTO DEVE TROVARSI. 

IN PRATICA SI EFFEirUA. UN CONTROL IO SULLO El EMNTm CENTRALE 
DEIi.A TABELLA PER INDIVIDUARE LA META" IN CUI I O T-l TOMENTO 
CERCATO DEVE TROVARSI. 

SI PRITIEDE POI NEI 1.0 SI ESSO MODO :-.l..ll.l A MEZZA rACEI.,LA 
SELEZIONATA E COSI" VIA FINO A CHE 0 SI INCONTRA LO 
El EMENTO CERCATO 0. NE:L CAGO IN CUI E'jSO NON SIA PRESENTE 
IN TABELLA, SI INDIVIDnA LA POSIZIONE IN CUI DEVE ESSERE 
INSERi rO. (SE NELLA TABEl LA VI SONO PIU" ELEMENTI 
UOUALt VIENE SELEZIONATO IL PRIMO». 


INTERIORE 


ET,EMENTO CERCATO 


4 


CENTRAI.E-- 


6 



10 


SUPERIORE-> 


20 


LUNG-10 CENERAZIONE DI UNA TAEiEl.LA DI 10 FI EMENTI, 

FOR 1 = 1 TO LLING : A ( I ) =2» I : NE X T I 

INPUT "VALORE CERCATO; "sV 

GOSUB 370i0N Gl GOTO 320,330 'RICERCA DICOTOMUSA' 

E-'RINr "VALORE TROVATO NELLA POSIZIONE "; POS: GOTO ;.'90 
PRINT"VALORE INESISTENTE.PUOI INSERIRLO IN POSIZIONE ":POS 
Goro 290 

INEERI i;iRE= 1 : SUPER IDRE =LUNG 

IF INFERIGRETSLIPERICIRE THEN Gl=2;POS=CENTRALE; IF V>A(POS) THEN 
P0S=P0S+1: RETURN ELSE RETURN VAI.CiRE INESISTENTE 

CENTRAL.E=INT ( < INFERI ORE+SilJPERI ORE ) /2 ) 

IF V<>A(C:ENTRAI.E) THEN GÙ IO 440 

IF A(CENTRALE- 1)<>A(CENTRALE) THEN Q=1 :PCiS=CENTRALE;RETURN 
ELSE C:ENTRALE=CENTRAL.E-l:Gi:iTO 420 
IF V<A(CENTRALE) THEN SUPERIDRE=CENTRALF -1 : GOTO 390 
IF V>A (CENTRALE) THEN INf-ERIORE=CEN TRAI E(-I : (SOTO 590 


RUN 


VAI ORE CERCATO 4 

VALORE TROVATO MEI I A POSIZIONE; 2 
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IO' RICERCA AUTOMATICA DEL FATTORE DI SCALA PER UN ISTOGRAMMA 
30' 

40' QUESTO PROGRAMMA PERMETTE DI COSTRUIRE UN ISTOGRAMMA SENZA 
50' AVÈR DEFINITO A PRIORI IL FATTORE DI SCALA. 

60' 

70 DIM TX(20) 

30' 

90' GENERAZIONE DI 15 VALORI CASUALI PER PROVARE LA ROUTINE 
100 ' 

no FOR 1=1 TO 15:TX(I)=INT(RND(1)*20:LPRINT USINO "###"jTX(I): 
NEXT I 

130 FOR 1=1 TO 15 'RICERCA DEL MASSIMO' 

140 IF TX(I)>MAX THEN MAX=TX(I ) 

150 NEXT I 

160' 

170 SCALA=10/MAX 'ALTEZZA MASSIMA 10' 

180 SCALA=INT(SCALA«8)/8 'FATTORE MINIMO DI SCALA 0.125' 

200' 'STAMPA' 

210 LPR I NT ; LPR I NT ; LPR I NT '• ISTOCiRAMMA " : LPRI NT " " 

220 FOR J=10 TO 1 STEP -1 

230 FOR 1= 1 TO 15 

240 IF TX(I)KSCALA>=J THEN LPRINT" 

ELSE LPRINT" 

250 NEXT I 

260 LPRINT"" 

270 NEXT J 

230' 

290 LPRINT"":FOR 1 = 1 TO 15:LPRINT USINO "###";I ?sNEXT I 
300 LPRINT" SCALA: ":SCALA 

310 END 
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IO ' ORDINAMENTO CON IL METODO DI SHELL 

'0 ' 

40 ' IL CONFRONTO NON SI EFFETTUA TRA DUE VALORI CONSECUTIVI, 

SO ' COME PER IL METODO <RIPPLE> MA TRA DUE VAl.ORI SEPARATI 

-.1) ' DA UN "PASSO" CHE ALL"INIZIO E" UOUALE ALLA META" DELLA 

/O ' DIMENSIONE DELLA TABELLA DA ORDINARE. 

SO ' . AL SECONDO GIRO IL PASSO VIENE DIVISO PER I' E COSI VIA 

•vo ' . L"ULTIMO PASSAGGIO VIENE EFFETTUATO CON PASSO 1 (COME 

100" PER IL METODO RIPPLE) 

l IO' 

120 ' 

150 INPUT "DIMENSIONE: ";D 

140 DIM AID) 

150' 

160 FOR 1 = 1 TO D: A(I )=RND(1): NEXT I 'GENEFfAZIONE TABELLA" 

1 70" 

180 GOSUB 280: FOR 1 = 1 TO D: PRINT Ad): NEXT I 

•190 PRINT "DIMENSIONE ":Xi:TAB(20) "CONFRONTI ";C: 

TAB(40) "SCAMBI "jS 

200 END 

220 ■' 

230 ' 9876543210 

240 " - 

250 ' ! ! 

260 ' INVERSIONE 

270 ' 

230 PAS=D 

290 ' 

300 PAS=INT(PAS/2):IF PASCI THEN RETURN 

310 INVERSI0NI=0 

320 ' 

330 FOR 1=1 TO D-PAS 

340 C=C-H "CONTATORE DEI CONFRONTI" 

350 N=I+PAS: IF A(I)>A(N) THEN 

SWAP Ad ),A(N): INVERSIONI = 1 ; S=S+1 

360 NEXT I 

370 " 

380 IF INVERSI0NE=1 THEN GOTO 310 ELSE GOTO 300 

390 " SI RICOMINCIA FINCHE" NON VI SONO ZERO.INVERSIONI 
400 " 


410 

420 

430 

440 

y 


SHEI.L 


RIPPLE 

450 

460 

A 

DIMENSIONE : 

CONTRONTI 

INVERSIONI 

CONFRONTI 

INVERSIONI 

470 

A 

10 : 

47 

3 

45 

19 

480 

A 

20 : 

230 

39 

190 

104 

490 

•* 

50 : 

1010 

180 

1170 

642 

soc» 

A 

100 : 

3382 

515 

4914 

2657 

510 

520 

530 


200 : 

6791 

1035 

19669 

10541 
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CAPITOLO 2 


FILES AD ACCESSO DIRETTO (random) 


I files permettono di memorizzare in modo permanente deile informazioni che cosi 
possono essere utilizzate anche dopo parecchio tempo, i supporti fisici che si utiiiz- 
zano per ia memorizzazione dei fiies sono in genere nastri o dischi magnetici. 

Faremo in particolare riferimento ai floppy-disks, cioè a quei particolari dischi ma¬ 
gnetici utilizzati suila maggior parte dei Personai Computerà. 

Un floppy-disk è composto da più tracce concentriche (35 per i dischi da 5 pollici e 
mezzo e 77 per queiii da 8 poilici) e ogni traccia è a sua voita suddivisa in "settori" 
(rispettivamente 10 e 26). Ciascun settore (che può contenere o 128 o 256 caratteri) 
è individuato sui disco da un ‘indirizzo fisico' (numero deila traccia e posizione del 
settore all’Interno della traccia stessa). 

L’accesso ad un settore viene ottenuto nel modo seguente: dapprima la testina di 
lettura-scrittura si posiziona sulla traccia selezionata e poi, mediante una ricerca sul¬ 
la traccia, all'inizio del settore selezionato. 

Nonostante in realtà la ricerca all'Interno della traccia sia di tipo sequenziale, 
quando è possibile selezionare direttamente un settore si parla di organizzazione ad 
accesso diretto. Ciò è dovuto al fatto che la ricerca del record richiesto appare all’u¬ 
tente effettivamente di tipo diretto in quanto la richiesta di accesso viene fatta utiliz¬ 
zando direttamente l’indice di posizione del record nel file. 

In realtà però è il sistema operativo che ricava da questa informazione l’indirizzo 
fisico del settore In cui è memorizzato il record ed effettua tramite questo una ricerca 
sequenziale sulla traccia selezionata. 

Le vecchie versioni del BASIC permettevano di utilizzare solo records di lunghezza 
prefissata (128 o 256 caratteri). Sulle versioni più moderne è invece il programmato- 
re, tramite la definizione dei campi, a decidere la lunghezza del record. È meglio ri¬ 
cordare comunque che anche in questo caso tutti i records di uno stesso file devono 
avere la stessa lunghezza. 

Utilizzando i files ad accesso diretto è possibile ottenere un aggiornamento di un fi- 
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MEMORIA TAMPONE (BUFFER) 


ROSSI 

MARIO 

20100 

MILANO 


GET 


© 


\ 

CAMPI ^ 


PUT @ 

(D 


128 0 256 0 n° variabile* 


ROSSI 

MARIO 

20100 

MILANO 

SIANO 

PIERO 

00100 

TORINO 













—-- 


R 

E 


PUT = SCRITTURA 
GET = LETTURA 


128 bytes 
256 bytes 
lunghezza variabile 


XI; DTC MICROFILE 
TRS80 NEW DOS 

MICROSOFT 5. 


FILES AD ACCESSO DIRETTO 
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le in modo immediato (in tempo reaie) mentre ciò non era possibile con i files se¬ 
quenziali. 


OPEN 


Per poter eseguire un’operazione di lettura o scrittura su un file è necessario che 
esso sia ‘aperto’ a tale operazione. 

L’istruzione OPEN, che 'apre’ un file per la lettura o la scrittura, fa si che venga 
predisposta in memoria un’area tampone, detta buffer, nella quale verranno via via 
depositati i vari dati che vengono trasferiti dal file (lettura) o che dovranno esservi 
trasferiti (scrittura). 

OPEN "R”, §n° file, "U'.nome file", lunghezza record 

, -MICROSOFT 5. (U rappresenta l’unità disco su cui risiede il fi¬ 

le: U=A, B, C ... Se U non è specificato viene considerato come A) 

OPEN “R”, file, "nome file: n° unità disco" 

< -TRS80 NEW DOS (Se l’unità disco non viene specificata vien 

considerato il disco 0) 

”R" specifica il tipo di file (RANDOM). Questo parametro può essere definito anche 
tramite una variabile o un’espressione. 

’n° file’ anche se viene utilizzato praticamente come identificatore del file, in realtà 
rappresenta il numero del buffer assegnato al file stesso durante l’operazione 
di ‘apertura’. 

’U: nome file’ può essere specificato anche tramite un’espressione (ad esempio 
“A:” + NOMFIL$). 

‘lunghezza record’, che può essere specificata tramite un’espressione, è posta auto¬ 
maticamente pari a 128 (Microsoft 5.) qualora questo parametro non venga u- 
tilizzato nell’istruzione OPEN. 

A 10 OPEN "R”,#1,"CLIENTI”,200 

B 10 INPUT "NOME FILE”:NF$ 

20 OPEN’‘R’’,#1,NF$,64 

Nell’esempio A l’istruzione OPEN apre il file CLIENTI assegnandogli II buffer n“ 1 
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(nel seguito del programma il file verrà indicato come #1 ) e considera ogni record 
formato da 200 caratteri. 

Nelia versione Microsoft 5. vengono definiti in fase di inizializzazione del sistema 
sia il numero massimo di files che possono venire aperti contemporaneamente, sia la 
lunghezza massima ammessa per un record. 

M BASI C/S: lunghezza max recordIF: numero max tlles 

Uno stesso file può essere aperto con diversi numeri. In tal caso al file stesso ven¬ 
gono associati più bufferà (cfr aperture multiple). 


FIELD# n° file, 11 AS var1$, 12 AS var2$,... 

(DESCRIZIONE DEI CAMPI) 

Un record è identificato all’Interno di un file ad accesso diretto da un numero che 
rappresenta la sua posizione nel file stesso.* Ciascun record è a sua volta suddiviso 
in 'campi', la cui lunghezza viene specificata mediante l’istruzione FIELD. 

FIELD# n° tue, Il AS var1$, 12 AS var2$, ... 

Questa istruzione, che descrive la struttura dei record specificando sia la posizio¬ 
ne dei vari campi aH’interno del record, sia la loro lunghezza, viene in genere utilizza¬ 
ta congiuntamente all’istruzione OPEN. 

20 FIELD#1, 15 AS COGNOME!, 10 AS NOME$, 25 AS VIA$, 5 AS CAP$ 

15 caratteri sono riservati per il cognome 
10 caratteri sono riservati per il nome 
25 caratteri sono riservati per l’indirizzo 
5 caratteri sono riservati per il codice postale 

15 10 25 

I ROSSI MARIO ]^CORSO GARIBALDI : 

COGNOMES NOME$ VIA$ 

Durante le operazioni di lettura e scrittura si può accedere ad un solo record per 
volta (un solo record può essere trasferito nel buffer). 



PUT# n° file, n° record (per scrittura) LSET RSET 
Per poter effettuare l’operazione di scrittura in un record di un file è necessario de- 
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positare prima nei vari campi definiti nel buffer i dati che dovranno poi essere trasfe¬ 
riti nel file. 

Per effettuare questa operazione preliminare si utilizza in genere una delle due 
funzioni LSET o RSET. 


LSET nome campo = stringa di caratteri (o espressione) 


IO 

tNPI.ir"i:ni:,NOME: x* 




20 

LSET COI-NOME ».=X* 

'TRASFERISCE 

X* NEI 

B1IFE ER 

25' 


(CAMPO COI 

;.NCiME* ) 


30 

INPUT"NOME: ";X» 




40 

LSET NÙMKS^X» 

TRASFERISCE 

l X* NEL 

BUFFER 

45' 


(CAMPO NOME*) 


100 

PUT #1,10 

'TRASFERISCE 

; IL CONTENUTO DEL 

101' 


EII.IFTER NEL 

DECIMO 

RECORD DEL 


Con l’istruzione LSET, il dato viene caricato nel campo del buffer occupando nel 
campo stesso le prime posizioni a sinistra. (Utilizzando invece RSET si sarebbe avuto 
un caricamento a destra). I bytes del campo rimasti inutilizzati vengono completati 
con degli spazi bianchi (codice ASCII 32). Ad esempio LSET COGNOME$=“ROSSI” 
inserisce i 5 caratteri R, 0, S, S.l, nelle prime 5 posizioni a sinistra del campo CO- 
GNOME$ e completa il campo stesso con 10 spazi bianchi (se il campo è stato defi¬ 
nito di 15 caratteri). 

Attenzione: le variabili utilizzate per definire i campi all’interno di un buffer non pos¬ 
sono venire inizializzate direttamente con dei dati provenienti dall’esterno. Pertanto 
non sarà ammessa la forma INPUT NOME$ se NOME$ è il nome di un campo di un 
buffer. 

Anche se, in fase di aggiornamento di un record, si vogliono modificare solo alcuni 
campi è indispensabile aggiornare anche i rimanenti campi nel buffer prima di effet¬ 
tuare l’istruzione PUT. In caso contrario infatti verrebbero considerati, per i campi 
non aggiornati, i valori già presenti nel buffer e derivanti da una precedente operazio¬ 
ne di lettura/scrittura. 

Questo inconveniente può essere evitato, se si utilizzano records di lunghezza fis¬ 
sa (128 o 256 bytes), nel modo seguente (cfr LOF e LOC per il Microsoft 5.): 
prima di effettuare il trasferimento dei dati nel buffer, si legge dal file un record inesi¬ 
stente 


GET#1, LOF(1)+1 
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in modo da avere nel buffer una sequenza di zeri binari. 


5 OEr #1.1 nt (1 )+i 

IO INPUT''Nì;.t'li-: ";X* 

20 LSEt 


lOO FLIT #1.10 


' INIZIAI I Z7AZ IONE DEI. EM.IFF ER 


'SCRITTURA SUL FILE DEL RECORD 10 


Attenzione: sul TRS80, generando il record 100 in un file vuoto, si ottiene la genera¬ 
zione automatica dei precedenti 99 records assegnando ad essi dei valori casuali. 


Numeri di record 

MICROSOFT 5. da 1 a 32567 

TRS80 da 1 a 355 

DTCMICROFILE da 0 a 4095 

Se nell’istruzione PUT non viene specificato il numero del record a cui ci si riferi¬ 
sce, la scrittura viene effettuata nel record successivo a quello corrente. 


GET# n» file, n° record (LETTURA) 

La lettura di un record (trasferimento di dati dal disco al buffer) viene effettuata 
tramite l’istruzione: 

GET#n° file, n° record 

Dopo l’esecuzione di questa istruzione sono disponibili nel buffer i valori relativi a 
tutti i campi del record; pertanto si può richiedere, ad esempio, la loro visualizzazione 
mediante un PRINT. 

100 PRINT COGNOME$,NOME$,VIA$ 

con COGNOME$,NOME$,VIA$ descrittori dei campi del record 

Come per l’istruzione PUT, anche nel caso di GET se non si specifica il numero del 
record si intende far riferimento al record successivo a quello corrente. 


AGGIORNAMENTO DEI CAMPI 

Volendo modificare il contenuto di un campo di un certo record si devono eseguire 
le tre seguenti operazioni; 
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. lettura (GET) del record interessato 
. variazione del campo nel buffer 
. scrittura del record modificato (PUT). 


10 

GET 

#1 , X 

' LE n LIRA DEL 

RECORD X 

20 

LSE' 

r c.l 1 TA*-"MILANO" 

MODIFICA DI 

UN CAMPO 

30 

pur 

#1, X 

RISCRITTURA 

SUL FILE 


CAMPI DI TIPO NUMERICO: MKI$ MKS$ MKD$ CVI CVS CVD 

Poiché un campo può essere definito soltanto tramite una variabiie di tipo aifanu- 
merico, se si vuoie assegnare ad un campo un valore numerico occorre prima tra¬ 
sformare tale valore in una stringa di caratteri. 

Questo tipo di trasformazione viene effettuato utilizzando la funzione MKx$ nel mo¬ 
do seguente: 

LSET campo = MKx$(espressione numerica) 

ove X è un carattere dipendente dal tipo del valore numerico che si vuoie trasformare, 
e precisamente: 

X = I per valori di tipo intero 

X = S per vaiori reaii in semplice precisione 

X = D per vaiori reaii in doppia precisione 

IO INPUT" eoo ICE PCiSTALE"?CAP 

20 LSET CI P!.-. r t ^hKS*(CAP) 

30 PUT #t,X 


Successivamente, in fase di iettura, la conversione inversa verrà effettuata me¬ 
diante la funzione CVx come iliustrato nell’esempio seguente: 


50 

GET 

#1,X 


60 

CAP 

=CVS(C 

"P3T*) 

70 

PRINT CAP 



La tabella seguente illustra, dipendentemente dai valore numerico, la funzione uti¬ 
lizzata per la conversione e io spazio occupato 


0-. 255 

-32768 -. -1-32767 

semplice precisione 
doppia precisione 


LSET X$=CHR$(X) 
LSET X$=MKI$(X) 
LSET X$=MKS$(X) 
LSET X$=MKD$(X) 


1 carattere 

2 caratteri 
4 caratteri 
8 caratteri 


X=ASC(X$) 

X=CVI(X$) 

X=CVS(X$) 

X=CVD(X$) 


scrittura 


bytes iettura 

occupati 
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Definizione di strutture multiple 

Si possono definire contemporaneamente più strutture per uno stesso record. 

IO Fiei D #1,15 AS COONUME»,IO AS NOMES,. 

20 FIELD #1,15 AS CAMP0*(1),10 AS CAMPO*(2),. 

30 FIEl D #1,25 AS SIC.*. 

Nell’esempio precedente il campo NOME viene riconosciuto sia come NOME$ che 
come CAMP0$(2). Con questo accorgimento si può eccedere ad un campo sia me¬ 
diante un nome simbolico (NOME$) sia specificando la sua posizione nel record 
(CAMP0$(2)). 

La terza istruzione ristruttura i due campi COGNOME$ e NOME$ unificandoii in un 
unico campo denominato SIG$. 

Questo avviene in quanto praticamente l'istruzione FIELD iniziaiizza soio i puntato¬ 
ri alia testa dei vari campi. 

Assegnando più ‘nomi’ allo stesso campo si ottiene pertanto i’inizializzazione di più 
puntatori sullo stesso indirizzo. 

Nella versione 5. un’istruzione FIELD relativa ad un file non aperto permette di de¬ 
finire una struttura su una riga di caratteri. 


Forma compattata 

Se tutti i campi di un record hanno la medesima lunghezza la definizione dei campi 
stessi può essere fatta come nell’esempio seguente: 

5 5 5 _ 

[cAMról(l) CAMP0^(2) __ 

Ogni campo contiene cinque caratteri 
10 FOR 1=1 TO 10 

20 FIELD #1,(I-1)*5 AS D*, 5 AS CAMPO*(I) 

30 NEXT I 

La variabile D$ è utilizzata per posizionare correttamente i puntatori relativi ai vari 
campi. 


Definizione di più tabelle 


Nell’esempio vengono memorizzati in un file due vettori A$ e B$. 

3 2 3 2 

[_A$^1J__Af(2)_J__^£22_2__ 

10 FOR 1=1 TO 10 

20 FIELD #1,(I-1)*5 AS D*,3 AS A*<1),2 AS B*(I) 

30 
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Records logici 

Quando non è possibile fissare arbitrariamente ie iunghezze dei records si può ri¬ 
correre, per memorizzare files formati da records piuttosto corti, alia scomposizione 
di un record fisico in più records iogici. 

- RECORD FISICO -■ 

ROSSI J xxxxxx J BIANCHI J xxxxxxx J VERDI xxxxxx 
Record logico 1 Record logico 2 Record logico 3 

Detto NLOG il numero di record logico NFiS quello del record fisico a cui appartie¬ 
ne e POS la posizione del record logico all'Interno di quello fisico, sussistono le se¬ 
guenti relazioni: 

NFIS = (INT(NLOG — 1)/3) + 1 (ogni record fisico contiene 3 records lo¬ 
gici) 

POS = ((NLOG - 1) MOD 3) + 1 

Esempio: NLOG = 8-. NFIS = INT ((8 - 1)/3) +1 =3 

NLOG = 8-> POS = ( (8 - 1) MOD 3) + 1 = 2 

La definizione dei campi aH’interno di un record logico può essere fatta dinamica- 
mente come illustrato nell'esempio seguente: 

IO INPUT"NUMERO RECORD LOGICO "!NLOG 

20 NFIS=INT( (NLOC-1 

30 POS=--( (NLOG -1 ) MOD 3) + l:G0SLIB 1000 

40 OET l»l,NFIS 

50 LSET COGNOME*="ROSSI" 

60 PUT )H,NFIS 

1000 FIELD #1,(P0S-1)«50 AS D*,15 AS COGNOME», :ReTURN 

Poiché ogni variabile deve essere assegnata ad uno dei 3 records logici, l'istruzio¬ 
ne FIELD deve essere eseguita ogni volta che si cambia record logico. 

Attenzione: L'esecuzione dell'istruzione FIELD risulta piuttosto lunga se il numero dei 
campi da definire è elevato. 

Per questo motivo ci sembra opportuno presentare una soluzione alternativa alla 
precedente, utilizzabile però solo nel caso in cui ogni record fisico sia diviso in due 
records logici. In questo caso, se si vuole operare sul secondo record logico, dopo la 
lettura dell'intero record fisico si salva in una variabile il contenuto del primo record 
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logico, si trasferisce la seconda metà del buffer (2° record logico) nella prima (in cui 
mediante un FIELD sono state definite le variabili), si effettua l’aggiornamento del re¬ 
cord logico, si ritrasferisce la prima parte del buffer nella seconda e si ricopia nella 
prima il record precedentemente salvato, in tal modo l’intero record fisico viene ri- 
strutturato per fa scrittura. 

Questa procedura è illustrata nell’esempio seguente: 

50 FIELD #1,15 AS COGNOME*, 10 AS NOME*,.. 

60 FIEL.D #1,123 AS El*,123 AS E2* 'DEFINIZIONE DI 2 RECORDS 

LOGICI' 


170 GET #1,NFIS 

180 IF POS=2 THEN RECI*=E1 *:LSET El*=--E2» 

190 I...SET COONOME*="ROSSI" 

200 IF P0S=2 THEN LSET E2*=E1*;L.SET El*=HtCi* 
210 PUT #1,NFIS 


Aperture multiple per un file 

È possibile, mediante più istruzioni OPEN, assegnare ad uno stesso file più buffers 
(attribuendogli così più numeri di identificazione). Con questo accorgimento è possi¬ 
bile avere contemporaneamente in memoria più records dello stesso file. 

Questa opzione, peraltro non ammessa da tutti i Basic, va comunque usata con 
molta prudenza. In particolare converrà utilizzare un numero di file per la CREAZIO¬ 
NE di nuovi records ed un altro per la manipolazione dei records già esistenti. 

In questo caso il secondo buffer non verrà mai chiuso (il descrittore dinamico non 
necessita infatti di aggiornamento). 

Nella versione 5. utilizzando le aperture multiple un file può essere aperto sia ad 
accesso sequenziale che ad accesso diretto. 


CLOSE # 11° file. # n° file,... 

Questa istruzione serve per ‘chiudere’ un file e rilasciare il buffer che gli era stato 
assegnato. 

Quando un file viene aperto, viene trasferito in memoria centrale un "descrittore 
dinamico" del file stesso che contiene dei puntatori ai vari records del file. Questo 
descrittore viene aggiornato, in memoria centrale, ogni qual volta si rende necessaria 
la creazione di nuovi records. 

Su diversi sistemi (tra cui il TRS 80) l’aggiornamento del descrittore dinamico su 
disco avviene solo in concomitanza con la chiusura del file. Pertanto, se ci si dimenti- 


72 



ca di chiudere dei files prima di porre termine ai lavoro, si perdono tutti i descrittori 
relativi a tutti i records aggiunti durante quella fase. 

Per evitare questo inconveniente si può ricorrere ad un espediente che però annul¬ 
la tutti i vantaggi della allocazione dinamica. Tale espediente consiste nel generare 
all’inizio del programma un record vuoto con un numero di identificazione molto alto 
e nel chiudere poi il file. In questo modo vengono memorizzati nel descrittore dinami¬ 
co tutti i puntatori ed i records che dovrebbero precedere quello generato e pertanto, 
in genere, non è più necessario aggiornare di nuovo il descrittore stesso. 

CLOSE #1, #2 

I comandi END e NEW provocano automaticamente la chiusura di tutti i files. 


LOF LOG (PER RECORDS DI LUNGHEZZA FISSA PARI A 128 O 256) 


LOF ( 0 ° file) 


Permette di determinare il numero di records presenti in un file e quindi la posizio¬ 
ne in cui dovrà essere aggiunto un nuovo record. 


100 Mi.ii;fVO=i ijf ( 1 i-t-i 

120 LSET C* (1 ) = ''PIPF'0" 

130 i.ser c*(2)="pi.uTi:i" 

150 PUT #1,NUOVO 


pljSlZ li;iNE MUOVO I^EIUIKD" 
SCRIItURA NEI BUFFER 
Si.:Rnn.lRA NEL BI-H EER' 

MtMORIZ/AZIONE NEL FILE 


Su alcuni sistemi, come il DTC Microfile, la funzione LOF fornisce direttamente la 
posizione del nuovo record (LOF = lunghezza file + 1). 


LOG ( 0 ° file) 

Permette di posizionarsi sul record successivo a quello utilizzato nell’ultima opera¬ 
zione di input-output. 

Nota: le operazioni di lettura e scrittura in un file possono essere effettuate anche uti¬ 
lizzando direttamente dei comandi da consolle. Questa opzione viene usata con 
grande utilità in fase di messa a punto. 

GET# 1,3; PRINT N$ 

PIPPO 

OK 

LSET N$=“XXXX”: PUT # 1,3 
OK 
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LOF (n° file) (microsoft 5.) 


Nella versione 5. la funzione LOF restituisce ii numero di biocchi di 128 bytes utiliz¬ 
zati nell’extent (1 extent = 128*128 bytes) a cui si è fatto riferimento neli'uitima ope¬ 
razione di input-output. Nel computo vengono conteggiati per intero anche eventuali 
blocchi utilizzati solo parzialmente. 

Con la versione Microsoft 5. pertanto la funzione LOF restituisce il numero di re- 
cords presenti net file solo nel caso in cui i records siano di lunghezza fissa pari a 128 
bytes e ii loro numero non superi 128. 

Come si può fare allora in genere a rintracciare ia posizione in cui è possibiie ag¬ 
giungere un nuovo record? 

— La soluzione più semplice consiste neH’utilizzare un contatore che contenga sem¬ 
pre ii numero di records presenti nel file. Tale contatore potrà essere memorizzato 
ad esempio nel primo record. 

- Una soluzione alternativa consiste nell’utilizzare una BIT-MAP che descriva l’oc¬ 
cupazione di memoria di massa per il file (cfr allocazione dinamica). 

LOF (n* file) (TRS80) 

Su questo sistema la funzione LOF fornisce il numero di blocchi di 256 bytes utiliz¬ 
zati dal file. In questo caso il valore restituito coincide con il numero di records solo 
se questi hanno lunghezza pari a 256 caratteri. 


EOF (n* file) 

(5.) Restituisce il valore —1 se in fase di lettura si cerca di far riferimento ad un re¬ 
cord che dovrebbe trovarsi al di fuori dello spazio assegnato al file. 


Errori classici 

Vengono qui di seguito segnalati degli ‘errori’ abbastanza frequenti e molto perico¬ 
losi in quanto non riconosciuti come tali dal sistema. 

- La mancanza di un LSET nell’inizializzazione del buffer prima di un PUT. A causa 
di questo errore può capitare di non ritrovare più nel record ciò che si pensava di 
aver scritto. 

(Per controllare ciò che si è realmente scritto in un record si può ricorrere al se¬ 
guente espediente: rileggere immediatamente dopo la scrittura il record interessa- 
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to (GET) e visualizzare il suo contenuto. Eseguendo questa operazione diretta- 
mente da consolle è possibile modificare direttamente il contenuto del record nel 
caso in cui si sia riscontrata un'inesattezza). 

- L’uso in un’istruzione INPUT di una variabile precedentemente utilizzata come de¬ 
scrittore di campo. A causa di gusto errore la variabile stessa perde la sua funzio¬ 
ne di descrittore. 

- L’uso della stessa variabile in più istruzioni FIELD. In questo caso il sistema asse¬ 
gna la variabile solo al buffer specificato nell’ultima istruzione FIELD. 

- Sovrapposizione (non voluta) di più campi. Questo errore è generato dall’uso non 
corretto della dichiarazione multipla per i campi. 

- Conversione errata di dati numerici in fase di lettura mediante le funzioni CVx. È e- 
vidente infatti che per una corretta interpretazione delle informazioni, un dato con¬ 
vertito in stringa mediante un MKI$ (p. es.) deve poi essere riconvertito mediante 
la funzione corrispondente CVI. 

- Non effettuare un GET preventivo se si deve modificare solo qualche campo, del 
record. In questo caso, come abbiamo visto, viene falsata completamente l’opera¬ 
zione di aggiornamento del record stesso. 


IO OPEN "R",)»!,''XX",50 

20 FIELD #1_DESCRITTORI DEI CAMPI_' TOTALE 50 CARATTERI' 

SO FIELD #t.2 AS NREC1i,43 AS REC* 

40 GET # 1, 1 : CONTATCiRE"/.=CVI (NREC* ) 

ACQUISIZIONE DATI NUOVO RECORD 

100 CONTATORE>;=CONTATORE7.+ 1 

110 PUT (t 1, CONTA TRE'/. 

120 LSET NREC*=MKI* (CONTATORE'/. ) 

130 PUT #1,1 


MEMORIZZAZIONE NUOVO VALORE DEL 
CONTATORE 
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20' • KII-ES AD ACI>:SS0 DIRErrO (RANUOM) 

vy K*-*» OENERAZ tQNE,i;i:iNSULTAZIi>4E, AOGIORNAMENrO 
50' 

l'yy I FILES PERMEITONO DI COWjERVARE DEI.I.E UIFGiRMAZIONI 

70' <I VETTORI INVECE SONO DELIE MEMORIE DI LAVORO) 

SO'' 

120 -' ---.------... 

130' 1 ! ROSSI ! MARIO ! 02-ó51543 • < - - RECORD 1 

140' ------—.—.- 

150' 2 ! , ! ! ! 

ISO' ---.----... 

170' 3 ! ! ! ! 

190' CON* N« TEL* <.- LAMPI 

200 ' 

210' GENERAZIONE DI UN FILE 

230' 

240 REM 1) APERTURA DEL FILE (OPEN) 

250 REM 2) DESCRIZIONE DEI CAMPI DI UN RECORD (FIELD) 

260 REM 3) SCRITTURA (PUT#) 

270' 

280 OPEN "R",#!,"CLIENTI",40 'APRE IL FILE CLIENTI ASSEGNANDOGLI 

IL BUFFER NUMERO 1 

290 FIELD #1,10 AS CGN»,10 AS N*,20 AS TEL* DEFINIZIONE CAMPI' 

300' 

320 PRINTSPRINT "FUNZIONE(GEN,CONS,AGG,LIST,KEV,FINE ) "sF* 

325' 

330 IF F*="GEN" THEN GOSUB 420 'GENERAZIONE NUOVO RECORD' 

340 IF F*-"KEY" THEN GOSUB 330 'RICERCA NOMINATIVA' 

350 IF F*="LIST" THEN GOSUB 960 'STAMPA DI TUTTO IL FILE' 

360 IF F*="CONS" THEN GOSUB 590 'CONSULTAZIONE RECORD' 

370 IF F*="AGG" THEN GOSUB 700 'AGGIORNAMENTO RECORD' 

380 IF F*-"FINE" THEN STOP 

390 GOTO 320 

400' 

415' GENERAZIONE DEL FILE 

430 NREC=L0F(1 );GET #1,NREC 'AGGIUNTA DEL RECORD' 

440 PRINT;INPUT"COGNOME NUOVO CLIENTE "(CLIENTE* 

450 IF CLIENTE*="" THEN 560 

460 LSET CGN*=CLIENTE* 

470 INPUT"NOME "(NOME* 

490 LSET N*=NOME* 

490 INPUT"TELEFONO"(TH* 

500 LSET TE;L*=TH* 

505' 

510 PUT #1,NREC SCRITTURA NEL FILE' 

520 GOTO 430 

560 RE rURN 

590 PRINT;TNPUT"N. RECORD DA CONSULTARE "(NF(EX: 'CONSULTAZIONE' 

600 IF NREC^O THEN 640 ' 

610 GEI #1,NREC 

620 PRINTsF'RINT CGN*, N*, TEL*;PRINT 
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630 GOTO 590 

640 re; I URN 

650 ' .- - -... 


700 

705 

710 

720 

730 

740 

750 
760 
770 
•730 
790 
300 ' 
810 
320 
830 
835 
836' 
340 
850 
360 
870 
330 ' 
890 
900' 
910 
920 
930 
940' 
950 
960 
970' 
980 
990 
1000 
1010 
1020 
lOSO' 
1040 
1050' 
1060' 
1070' 
lOOO' 
1090' 
1100 ' 
1110 ' 
1120 ' 
1130' 
1140' 


PRINT:INPUT''N. RECORD DA MODIFICARE " ; NREC 'AGGIORNAMENTO 
IF NREC^O THEN 790 
OET #l,NT:fi; 

PRINT 

PRINT USINO "\ \";CGN<i; : INPUT VARI.: IF VAR$<;>'"• THEN 

I SET CGN*“VAR« 

PRINT Ul lNG "X ! INPUT VAR*: IF VARSO'"' THEN 

I SET N*.=VAR* 

PRINT USINO "S X":TEL*; 

INPUT VARS: IF VAR*<:>"" THEN I..SET TEL*=VAR* 

PUT #l.Nfti: 'MEMORIZ7A7IONE NUOVI DATI' 

GOTO 700 
RETURN 


RICERCA PER NOME' 


PRINT:INF UT"COGNOME CLIENTE":X$:IF X*="" THEN 930 
FF=L0F<1)-1 'f-F=FINE FILE 

FOR 1=1 rO FF 'RICERCA SEQUENZIALE' 

GEI «1,1 

IF X»=LEFT*(CGN«,LEN(X«)) THEN I=FF: T*="YES" 

NEXT I 

PRINT:IF LEFr*(T*,T)<>"Y" THEN PRINT "SCONOSCRITO":GOTO 830 

PRINT CGNT,N1i,TEL* 'STAMPA RECORD DESIDERATO' 

T*="XXX":GOrO 330 

RETURN 

STAMPA FILE' 

PRINT: PRINT" ELENCO CLIENTI ": PRINT ' =^===..= ' 

FOR 1=1 TO L0F(1)-1 
GET #1,1 

IF ASCICON*)=0 THEN GOTO 1020 'RECORD VUOTO' 
PRINT:PRINT CON*,N*,TEL» 

NEXT I 
RETURN 


.CON MICROSOFT 5. ATTENZIONE: 

NELL"USO DELLA FUNZIONE LOF 

.CON TRS80 NEW DOS 
CLEAR 3000 

CAMBIARE LOF(1) IN LOF(1)+1 
PRIMA DI UN INPUT X» POF<RE X»="" 


1150' 

1160' RICORDARSI DI CHIUDERE I FILES !!!!•!!!!!!! 

1170' 
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CAPITOLO 3 


FILES SEQUENZIALI 


Nei files di tipo sequenziale l'aggiunta di nuovi elementi può essere fatta soio aila 
fine del file, mentre l’operazione di lettura può avvenire soio partendo dall’inizio del fi¬ 
le stesso. Pertanto per raggiungere una certa posizione nel file occorre prima leggere 
tutte le informazioni che sono contenute nelle posizioni precedenti. Le operazioni di 
lettura e scrittura sono rette dalla medesime istruzioni (INPUT PRINT) utilizzate per 
l’acquisizione/visualizzazione di dayi da/su un videoterminale. 


] ROSSI J CR ^ LF ] BIANCHI J CR LF ^ 


In generale i RECORDS sono separati tra loro da due caratteri speciali (detti ele¬ 
menti separatori): Carriage return (CR) e Line feed (LF). i cui codici ASCII sono ri¬ 
spettivamente 13 e 10. 


OPEN 

Sul sistema Microsoft 5. un file di tipo sequenziale è aperto ad un solo tipo di ope¬ 
razione per volta (lettura o scrittura). La forma dell’istruzione OPEN in questo caso 
sarà la seguente: 

OPEN "0”,# n° file, ‘'U:nome file” (per la scrittura) 

OPEN “I”, # n° file, “U:nome file” (per la lettura) 

O -. output 

I -> input 

10 OPEN “0”,# 1,”A:PIPPO” -. MICROSOFT 5. 

10 OPEN "0”,# 1,"PIPPO:1 ” -. TRS80 NEWDOS 

Attenzione: Il sistema Microsoft 5. al momento dell’apertura di un file per OUTPUT lo 
inizializza a zero! 
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STRINGHE DI CARATTERI 


PRINT# INPUT# 

Il modo più semplice per scrivere in un file di tipo sequenziale è fornito dalla forma: 


PRINT# n° file, variabile 


Se si utilizza il programma: 


90 

INPUT 

"NOME,TELEPONO 

130 

PRINT 

IH,N* 

140 

PRINT 

#1,TEL« 


viene realizzata l'aggiunta di due records alla fine dei file 1. 

In modo analogo per leggere due records dal file si userà l’istruzione 


INPUT# n° file, variabile 


come illustrato nell’esempio. 

220 INPUT 1*1, NOME* 

230 INPUT #1,TEL* 

250 PRINT NOME*,TEL* 

In un’unica istruzione INPUT possono comparire più variabili, purché separate da 
virgole. 


30 INPUT# 1,N0ME$,TEL$ 


Anche in questo caso comunque l’assegnazione alle variabili dei valori contenuti 
nel file viene fatta in modo sequenziale. 


10' 


I FILE? 

■ f OIIFNZIALI 



20 






40 






50' 





SRIT TURA 

60' 





-- 

70' 






30 

OPEN " 

0",*1,"CLIENTI" 


'APERTURA FILE CI 1.ENTI 

9C) 

INPUT 

"NOME ";NOM* 


'PER OUTPUT CON BUFFER 

100 

IF NOM*^"" THEN OL 

-OSE 1*1: GOTO 1 

1 95 

NUMERO 1 

no 

INPUT 

"TEI FFONO "; 

TEL * 



\:to' 

130 

PRINT 

#1,NOM* 



'<-SOR in LIRA ni 1 RECORTi 

140 

PRINT 

IH, TEL* 



'<-SCRIirURA DI 1 REiORD 

160 

170 

180' 

OOTO 90 








I LFT ILIRA 

190' 





. . - 

195 

LPRINT 

"PRIMA PASS 

;ATA": LPRINT 



200 

OPEN ’• 

r‘,IH, "CLIENTI" 


'APERTURA DEL FU E CLIENTI 
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210 ^ 

220 INPUT #1,N0M» 

250 INPUT #1,TEI t 

240' 

250 LPRINT NON*,TEI $ 

260 IP EOF(l) = -l THEN Cl.OSE 

270 GOTO 220 

275' 

280•' --- ... 

290' 

OOO’' 

310 LPRINT "SECONDA PASSATA" 
320 OPEN "I",#l,"CLIENTI" 
330' 

340 INPUT #1,NON*,TEL* 

350' 

360 LPRINT NON*,TEL* 

370 IF E0F<1)=-1 THEN STOP 
380 GOTO 340 

400' 

410'RUN 

420' 

430' NOME ROSSI 

440' TELEFONO 02-631523 

450' NOME BIANCHI 

460' TELEFONO -02-646412 

470' NOME 

480' 

490' PRIMA PASSATA 
500' 

510' ROSSI 02-631528 

520' BIANCHI 02-646412 

530' 

560' SECONDA PASSATA 
570' 

580' ROSSI 02-631528 

5-90' BIANCHI 02-646412 


PER INF’UT CON NUMERO 1 

'<.-I.EIOJRA DI 1 RECORD 

' <-.LETTURA DI 1 RECORD 


tH:LPRlNT:L.PRINT!OOTO 315 FINE FILE' 
'POSI7IONAMENTO SUL 
RECORD SUCCESSIVO 


II LETTURA 

:LPRINT 


'<— LETTURA DI 2 RECORDS 


Volendo scrivere il contenuto di più variabili in un unico record di un file sequenzia¬ 
le si deve usare l’istruzione PRINT# separando le variabili con un punto e virgola, co¬ 
me illustrato nell'esempio. 

10 COONOME*-"RO'SSI " : NÙME*-"MARIO" 

20 FRINT #1,NOME*;COGNOME* 

100 INPUT »1,X* 

no PRINT X* 

RUN 

MARI GROSSI 

Separatori di records 

Oltre ai caratteri speciali CR e LF per le stringhe di caratteri può essere utilizzata 
come separatore la virgola. 
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Fatta questa precisazione esaminiamo ora come avviene il processo di iettura di 
un record. 

- Gii ‘spazi bianchi’, la ‘virgola’, il ‘LF’ ed il ‘CR’ all’inizio del record vengono ignorati. 

- Se ii primo carattere significativo è virgoiette (”), vengono considerati come ap¬ 
partenenti al record tutti i caratteri che seguono fino ai successivo ’ ” 

- Se invece il primo carattere significativo non è ”, ia iettura termina quando viene 
incontrato un carattere separatore (, CR LF). 

Attenzione: Se in una stringa di caratteri è contenuta una virgoia e la stringa non è 
racchiusa tra virgolette, la lettura cessa appena viene incontrata ia virgoia, che è 
quindi considerata come eiemento separatore. 


Esempio: 

X*="ROSSI,BIANCHI 
PRINT #1,X* 


INPUT 1*1, X» 

PRINT X* ------. ROSSI 

LINE INPUT# n” file, variabile 

Utilizzando questa opzione ii sistema considera come eiemento separatore solo il 
Carriage Return (CR). Qualora tale carattere non venga incontrato, ia lettura viene 
arrestata automaticamente dopo 255 caratteri. Facendo riferimento ail’esempio pre¬ 
cedente, utilizzando 

100 LINE INPUT#1,X$ 

si sarebbe ottenuto 

110 PRiNT X$-. ROSSI,BIANCHI 

Un altro modo di procedere consiste nell’assicurarsi che una stringa venga co¬ 
munque racchiusa tra virgoiette. Ricordando che ii codice ASCii dei carattere ” è 34 
si può pertanto ricorrere, per ia scrittura in un fiie, aiia forma: 

PRINT # 1,CHR$(34):X$:CHR$(34) 

Con questa istruzione infatti il record verrebbe formato nel modo seguente 


IO 

20 


100 

no 
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Attenzione!: PRINT#1,X$,Y$,Z$ scrive il contenuto delle variabili X$, Y$, Z$ separato 
da spazi bianchi (come LPRINT) e non da virgole. 

Esempio: 

100 X$="ROSSI”:Y$=‘‘MARIO”:Z$=“631528” 

110 PRINT#1,X$,Y$,Z$ 

dà origine al record seguente 

]^R5ssr~MÀRÌcr'63Ì528’j^CÌr|^LF 

In questo caso l’istruzione 
INPUT# 1,X$ 
dà 

X$=“ROSSI MARIO 631528” 

Sottocampi 

In un file sequenziale si possono immagazzinare dati anche nel seguente modo: 
J^ROs^réaTsae^CR Jcr]]lf 


separatore separatore 

mediante la routine 

100 INPUT NON*,TEL$ 

: : 

l;30 PRINT #1, NOMSs “, “ s TEL* 

: : 

150 00 ro 100 

e procedere in seguito alla lettura in uno dei due modi qui esposti 

200 INPUT#1,NOM$.TEL$ 200 LINE INPUT#1.X$ 

210 PRINT NOM$.TEL$ 210 PRINT X$ 

run 

ROSSI 631528 ROSSI,631528 
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WRITE# n* flle,espresslone1,espresstone2,...(Microsoft 5.) 

Utilizzando il WRITE al posto del PRINT si ottiene la separazione con virgole dei 
vaiori delie espressioni, inoltre le stringhe di caratteri vengono automaticamente rac¬ 
chiuse tra virgoiette. 

Esempio: 

100 NOME$=‘‘ROSSI'': TEL$= '‘631528" 

100 WRITE#1,NOME$JEL$ 

J'"ROSSrr‘^3Ì528''~["CR’]TFl~ 

■■“T. 

carattere separatore 


DATI NUMERICI 

Quando si memorizzano in un fiie sequenziaie dei dati numerici, vengono adoperati 
come elementi separatori interrhedi degii spazi bianchi. Utilizzando nell’istruzione 
PRINT, come separatore delle variabili, il si ottiene la separazione dei valori, nei fi¬ 
ie, con un solo spazio bianco. L’uso dei punto e virgola pertanto non permette per i 
dati numerici la concatenazione (come avveniva invece per ie stringhe). 

100 X=123:Y=456:Z=789 
110 PRINT#1,X;Y:Z 

i valori di X,Y,Z sono memorizzati in un record dei file separati tra ioro da uno spa¬ 
zio bianco. Tale spazio, in iattura, verrà poi considerato come separatore di records. 

Pertanto 

150 INPUT #1,X,Y,Z lettura di 3 records 

160 PRiNT X,Y,Z 
darà; 123 456 789 

SCRITTURA DI STRINGHE E DATI NUMERICI 


Esempio: 

IO 

INPUT 

"RIPERIMENTO"•REE* 

20 

INPUT 

"QUANTITÀ'";Q 

30 

PRINT 

#r,REF* 

40 

PRINT 

»1,Q 

200 

INPUT 

#1,REE» 

210 

INPUT 

#1,Q 
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Attenzione! non fare: 10 X$=‘'CICLO”:X=123 
20 PRINT#1,X$;X 

poiché in questo caso la lettura di X$ darebbe come risultato ‘CICLO 123’. 


Simulazione di un file sequenziale con il terminale 

10 INPtJT''RECORD?":X$ ‘Lettura di uno pseudo-record’ 
20 PRINTXS 
30 GOTO10 


run 


RECORD7XXX 
XXX (risultato) 

RECORD7YYY 
YYY (risultato) 

RECORD7ZZZ 
ZZZ (risultato) 


CLOSE# n» file,#n" file, ... 

In generale la scrittura su disco con i files sequenziali non viene fatta dopo ogni 
PRiNT ma solo quando il buffer è pieno. Risuita pertanto moito importante chiudere i 
fiies ai momento opportuno se non si vogliono perdere dei dati. 


EOF (no file) 

Dà -1 se viene incontrata la fine del file durante un’operazione di lettura e 0 in tutti 
gli altri casi. 

Esempio: IF EOF(1)=-1 THEN CLOSE#1:GOTO segue 


LOC(no file) 

Fornisce il numero di blocchi di 128 bytes utilizzati per la lettura o la scrittura (IN¬ 
PUT 0 OUTPUT) (versione 5.). 


INPUT$(X,no (ile) Microsoft 5. 

Permette la lettura di X caratteri da un file sequenziale. Utilizzando questa opzione 
vengono letti come caratteri normali anche i separatori di records. 
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Esempio: Dump di un file 


IO 

OPEN "I",#1,"XX" 



20 

IF E0F(1)=-1 THEN CLOSE 

#1 : STOP 


30 

PRINT HEX*(ASC(INPUT«(1, 

. »! ) ) )? " 


40 

OOTO 20 




PRINT# n” file USING“format”; lista variabili 

Le regole d’uso del PRINT#USING per i files sequenziali sono le stesse presentate 
per il classico comando PRINT USINO. 


AGGIUNTA DI RECORDS 

Anche se taluni sistemi permettono di aggiungere dei records alla fine di un file se¬ 
quenziale mediante la semplice riapertura del file stesso, in genere questo tipo di o- 
perazione non è consentito. 

Nella maggior parte dei casi infatti per poter effettuare l'aggiornamento di un file 
occorre generare un nuovo file di tipo sequenziale in cui vengono scritti tutti i records 
di quello vecchio (che vengono man mano letti mediante INPUT#) seguiti poi dai re¬ 
cords che si vogliono aggiungere. Questo metodo di aggiornamento permetterebbe, 
tra l’altro, anche l’eventuale modifica di alcuni records del vecchio file. 

Questo sistema comunque non semplifica certamente l’uso dei files sequenziali, 
già di per sè molto laboriosi. 

Nota: il sistema DTC Microfile ammette per i files di tipo sequenziale non solo l’ag¬ 
giunta di records in coda ma anche il loro inserimento o la loro cancellazione. (Que¬ 
ste ultime operazioni vengono effettuate senza reali spostamenti fisici di records in 
quanto il sistema li concatena tramite dei puntatori). 
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CAPITOLO 4 


QUALCHE SEMPLICE METODO PRATICO 


DATA DEL FILE 

Lavorando con dei files è importante conoscere ia data in cui è stata effettuata l’ul¬ 
tima variazione. Questa informazione può essere memorizzata nei primo record dei 
file ed aggiornata ogni volta che vengono fatte delle modifiche nel file stesso. 



G$ M$ 

A$ 

DATA 1 

— 

o, 

— 

1 co 

1 

1 — 1 

2 

ROSSI 

XXXX 

3 

BIANCHI 

xxxx 


IO 

OPEN "CLlENd" 



20 

FIEin #1,1 AS G*,l AS M»,l AS ANt,3 

16 AS Bl >'* 


30 

FIEI D t»l,i;5 AS CON», 30 AS INF* 



40 

GEI #1,1 

LE TI LIRA PRIMO R 

E COFÌD 

50 

PRIN r US INO "###"; ASC(0*),ASC(M» ) ,A 

iSC ( AN* ) 




VISUALIZZAZIONE 

DATA 

60 

INPUl utXORRE aggiornare LA DATA? “ 

;R* 


70 

IF R^O 'SI" THEN GOTO 100 



30 

INPUT "Nl.iOVA DATA“;X,Y,Z 



90 

LSET G<i=CIIRl.<X):LSET M*=CHR* (Y ) :LSET AN*=CHR*<Z) 


100 

pur #1.1 

■ MEMORIZZAZIONE 

DELLA 

105 


NUOVA DATA' 


110 

DATAI iRt (ASCIO*) ) t-S IR* ( ASC (M* ) )+S 

rR*(ASC(.AN*) ) 


120 

frinì HATA* 

VISUAL TZ/AZIONE 

NUOVA 

1 ;30 ' 


DATA 



Si possono prevedere due date distinte: una relativa alia generazione del file e l'al¬ 
tra relativa all’ultimo aggiornamento. 


Vale la pena di notare che, utiiizzando ii metodo di trasformazione proposto nell’e¬ 
sempio, sono sufficienti 3 bytes per la memorizzazione di una data. 
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STAMPA ORDINATA DI UN FILE AD ACCESSO DIRETTO 


Poiché in genere non è possibiie trasferire tutto il file in memoria, date le dimensio¬ 
ni limitate della memoria centrale, per effettuare un ordinamento sugli elementi del fi¬ 
le bisogna procedere nel seguente modo: 

1) Si effettua una lettura sequenziale del file conservando in memoria, per ogni re¬ 
cord, solo il contenuto del campo (chiave) rispetto al quale si desidera ordinare il 
file. Le chiavi vengono via via memorizzate in un vettore, detto appunto vettore 
delle chiavi, mentre in un vettore parallelo (degli indici) verranno memorizzati i 
numeri dei records corrispondenti. 

2) Si effettua poi un ordinamento sul vettore delle chiavi con uno dei metodi classici 
(ad esempio per inversioni successive) avendo cura di effettuare le stesse opera¬ 
zioni di inversione anche sul vettore degli indici. 

3) Utilizzando alla fine il vettore degli indici in modo sequenziale per la ricerca dei 
records nei file si otterrà la lettura dei records nell’ordine desiderato. 

Memorizzando, dopo l'ordinamento, il vettore degli indici cosi ottenuto sul disco ed 
avendo cura di effettuare sullo stesso gli opportuni aggiornamenti relativi all’aggiunta 
0 all’eliminazione di records nel file, si può ottenere la stampa ordinata in 'tempo rea¬ 
le’. 

Non ci soffermiamo sulla trattazione teorica del metodo ‘ripple’, riteniamo però op¬ 
portuno fare alcuni accenni ad altri due metodi utilizzati spesso per ottenere l’ordina¬ 
mento di tabelle: il metodo ‘bubble’ ed II metodo di Shell-Metzner. 


Metodo ‘bubble’ 

Questo metodo consiste nel confrontare via via ciascun elemento della tabella con 
tutti quelli che lo seguono effettuando tutte le inversioni che si rendono necessarie. In 
questo modo dopo la prima “passata” l’elemento minore sarà sicuramente al primo 
posto; dopo la seconda vi sarà al secondo posto l’elemento più piccolo tra i rimanenti 
e cosi via. 

Dopo N-1 esplorazioni della tabella (se N è il numero degli elementi) si sarà otte¬ 
nuto l’ordinamento voluto. 

IO FOR 1=1 TO N-1 BUBEil E SORT 

20 FOR J=I + 1 TO N »=r^ = :=' 

30 IF A<-J)>A(I) THEN SWAP A(..I),A(I) CONFRONTO TRA 

31 'I-ESIMO ELEMENTO E TOT VI I 

33 SEOUENTI' 

40 NEXT J- 

50 NEXT I 
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utilizzando questo metodo, il numero di confronti e di inversioni necessario per ot¬ 
tenere l’ordinamento di una tabella contenente valori casuali è dello stesso ordine di 
grandezza di quello relativo al metodo ‘ripple’; tuttavia il tempo di esecuzione è senza 
dubbio inferiore in quanto non si rende necessario il controllo sul numero di inversioni 
effettuate ad ogni passaggio. 


Metodo di Shell • Metzner 

Questo metodo rappresenta una variante a quello di Shell da noi presentato come 
esempio alla fine della prima parte di quest’opera e permette di ridurre di un terzo il 
numero di confronti necessari per ottenere l’ordinamento. 


100 N=100:PAS-=N ' SHELL-ME IZNeR SuRT' 

105' ----... 

110 PAS-^INr<P.AS/2): IF PAS<1 THEN STOP 

120 J=1:K--N PAS 

125' 

130 I=J 

135' 

150 L=I+PAS 

160 IF A(I)<A<L) THEN 300 

170 SWAP Ad ),A(L) 

1.30 1 = 1 PASdF I<1 THEN GOTO 300 ELSE GOTO 150 

190' 

200 ,J=.J+1!TF J<K THEN 110 ELSE GOTO 130 


Se la chiave è di tipo alfanumerico potrebbe sembrare utile tare ricorso ad un indi¬ 
ce (puntatore alla tabella delle chiavi) in modo da effettuare le inversioni sui puntatori 
anziché sulle chiavi. In realtà l’unico vantaggio sarebbe quello di non alterare la ta¬ 
bella delle chiavi, in quanto in tempo necessario per l’ordinamento rimarrebbe invece 
invariato. 


Di seguito riportiamo in una tabella i tempi che si sono resi necessari, su un siste¬ 
ma 8080, per ottenere l’ordinamento di un vettore di numeri casuali compresi tra 0 e 
1 (i tempi sono esposti in secondi). 



BUBBLE 

SHELL 

METZNER 

INSERIMENTO DICOTOMICO 

50 

15 

15 

9 

15 

100 

55 

45 

21 

45 

200 

215 

110 

50 

145 

300 

470 

165 

80 

300 

400 



125 

470 

500 



145 

760' 


Per una tabella di 500 nomi di 12 caratteri il tempo necessario per l’ordinamento 
(con Shell-Metzner) sale da 145 sec. a 165 sec. 


89 







Inserendo nella tabella l’ultima colonna abbiamo voluto accennare al problema re¬ 
lativo aH’aggiunta, In una tabella ordinata, di un nuovo elemento. Notiamo a questo 
proposito che per risolvere questo problema (ricerca della posizione in cui inserire il 
nuovo elemento) risulta in genere più conveniente utilizzare il metodo ‘ripple’ appli¬ 
cato in due sensi, piuttosto che ricorrere al metodo Shell. 


IO' STAHPA ORDINATA DI UN FU E AD AOOESSO DIRtlTÙ 

30' 

40' NEL CORSO DI UNA PRIMA LEfTURA SEOUENZIALE DEI FU E SI CON- 

50' 'SERVANO IN MEMORIA, IN DUE VETTORI, SOLO LE LHI,WI PER 

ÓO' L"ORDINAMENTO (AD ESEMPIO I '•COfSNOMI") E: I NUMERI DEI 

70' RISPETTIVI RECORDS (VETTOiRI "KEY*" E "INDEX"). DOPO .AVER 

30' OPPORTUNAMENTE ORDINATO GlUESTI DUE VETTORI SI EEEETTUA UNA 

35' NUOVA LETTURA DEL FILE, TRAMITE IL VE1 TORE "INDEX" CHE SI 

36■' PERCORRE IN MODO. SEQUENZIALE, CON LA STAMPA DEL CONTENUTO 

•JO-" DEI SINOOLI RECORDS. SI OTTIENE CiOSI" UN El ENOO DEI RECORDS 

100' ORDINATI SECONDO I VALORI DELLE CHIAVI. 

105' 

110' Nt.; COGNOME PN*: NOME TL*: TELEFONO 

115' 

120 OPEN "R",#l,"CLIENTI" 'APERTURA DEL FILE' 

130 FIEI.D #1,10 AS N«,3 AS PN«,20 AS TL* DEF OrAMPI' 

150' COSTRUZIONE DEI VETTORI HEY* INDEX 

155' 

160 NREC=L0F(1 )-l:NKEYO NREC; NUMERO REOOiRDS' 

170 DIM KEY$(NREC),INDEX(NREC) 

130' 

190 FOR 1=1 TO NREC 

200 OET #1,1 'LETTURA DI UN RECORD' 

210 IF ASC(N*)=0 THEN 240 'RECORD VUOTO' 

220 NKEY =NKEY F1 :KEY*(NKEY)=N*: INOE X(MFSY)=I 

240 NEXT I 

260' ORNDINAMENTO DEI VETTORI (METODO RIPPLE) 

265' 

270 K=NKEY 

280 INVERSIONICO 

290' 

300 FOR 1=1 TO K-1 

310 IF KEY*(I+1)<KEY*(I) THEN 

3WAP KEY*(IFi),KEY*(I):3WAP INDEX(I),INDEX(IFi); 
INVERSI0NI=1 

320 NEXT 1 

33C>' 

340 IF INVERSI0NI=1 THEN K=K-r:OOTO 280 

350' 

370' STAMPA 

375' 

380 LPRINT "ELENCO CLIENTI" 

390 LPRINT "- LPRINT""; LPRINT 

400 FOR 1=1 TO NKEY 

410 OET #1,INDEX(I) 

430 LPRINT N$,PN*,TL* 

440 NEXT I 
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Supponendo ad esempio di avere nel file: 


ree 

1 

ROSSI ALBERTO 

02 

- 451412 

ree 

2 

BIANCHI GIORGIO 

01 

- 361824 

ree 

3 

VERDI ELVIRA 

02 

- 661522 

ree 

4 

ORSINI BRUNO 

02 

- 6427123 

ree 

5 

CORA SONIA 

02 

- 652313 


dopo l'ordinamento dei vettori KEY$ e INDEX si avrebbe la configurazione illustrata 
In figura 


VETTORE 

KEY$ 

ORDINATO 


BIANCHI 


CORA 


ORSINI 


ROSSI 


VERDI 


VETTORE 

INDEX FILE 

RELATIVO 


ROSSI 

XXXX 

BIANCHI 

XXXX 

VERDI 

XXXX 

ORSINI 

XXXX 

CORA 

XXXX 



che darebbe origine alla stampa ordinata. 


IO' RAijORUPPAMENTO PER Ci:iniICI 

30' 

40' QUESTO PROGRAMMA PERMEI TE DI OTIENERE L"El ENCO DEI CLIENTI 

‘50' RAGORUPPAII PER "CODICE POSTAI-E". PER 01 TENERE iTUt'irO 

60' RAGGRUPPAMENTO SI E" FATTO RICORSO AD UNA MATRICE INDE TV. 

70' irosiITUITA IN MEMORIA CENTRALE, CONTENENENTE IN CIASCUNA 

00' RIGA DEI PUNTATORI A TUTTI I RECORDS DEI FILE "CLTENTI" 

90' CONTENENTI LO STESSO VALORE NEL CAMPO CAP». 

100' PER OTTENERE L"ELENCO SONO NECESSARIE DUE LETrURE DEL PILE 
110' UNA, SEQUENZIALE, PER LA CREAZIONE DELLA TADELLA INDEX'/,; 

120' LA SECONDA,RANDOM, PER LA STAMPA. 

130' PER OTTENERE UN ORDINAMENTO RISPETTO AI VALORI DEI CAP 

14CL SI FA RIFERIMENTO AD ALTRE DUE TABELLE: CODE», CONTENENTE 

150' rUTTI I CODICI POSTALI AMMESSI, E IXV., CONTENEN lE DEI 

160 ' PUNTATORI ALLE VARIE RIGHE DI INDEX'/. E CHE VIENE INI ZI ALI Z ZATA 

170 CON I VALORI 1,2,3,_ 

ISO' 

200 ' 

210 DIM INDEX'/. (50,20), CODE» (50), IX'/. (50) MASSIMO 50 CODICI' 

220 OPEN "R",*l, "CLIENT" :FIEI.D IH,12 AS CL», 5 AS CAP» 

330 NC=0 

340 FOR NR=1 TO L0F(1)-1 'COSTRUZIONE TABELLE' 

350 GET #1,NR:IF ASC(CL»)=0 THEN 480 

360' 

370 FOR K = 1 TO 50 'TABELLA CCiDE»' 

380 IF CAP»=CODE»(K) THEN 4:30 
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390 

400 

410^ 

430 

440 

450 
460^ 
480 
4 «>ri ' 

NEXT K 

FOR 1=1 

NEXT I 

NEXT NR 

500 

FOR I=l TO 

510 

FOR J=I- 

520 


530 

NEXT J 

540 

NEXT I 

560 

lprint:lpr; 

570 

FOR C0DE=1 

580 

LPRINT i: 

590^ 


600 

FOR 1=1 

610 

r 

620 

( 

630 

NEXT I 

640' 


650 

LF'RINT 

•t>60 

NEXT CODE 


IF CCiDe*(K) = "" THEN Cr.iDE$ (K ) =CAP*: I XV. (K ) 
NC=NC+1:00 rei 430 


TO 20 'TABELLA INDEX"/,' 

IF INDEX-/. (K, I >=0 THEN INDEX•/. (K, I )--NR: GOTO 430 


NB -1 'ORrirMAMENTO CODE*' 

+ 1 TO NR 'BUBBL.E SORT' 

IF CODE*(I)>CODE*(J) THEN 

SWAP CODE* ( I ), CODE* ( J ) : SWAP I X'/. ( I ), IX'/. <0 ) 


'STAMPA' 


Esempio esplicativo: 

La figura illustra la situazione dopo l’ordinamento di CODE$ 


CODE$ IX% INDEX% 


FILE 



BIANCHI 

20038 

ROSSI 

20100 

VERDI 

00100 

COLOMBO 

20038 

PIAZZA 

00100 


La stampa ordinata avrebbe dato origine al seguente elenco: 


00100 

VERDI 


PIAZZA 

20038 

BIANCHI 


COLOMBO 

20100 

ROSSI 
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ALLOCAZIONE DELLO SPAZIO SU DISCO PER I FILES RANDOM 


Per permettere una gestione più razionale della memoria di massa da parte del si¬ 
stema, l'assegnazione ad un file di una porzione di disco avviene per blocchi di 1024 
bytes (i blocchi assegnati possono eventualmente non essere contigui). 

Ad ogni file viene associata una tabella contenente dei puntatori ai vari blocchi ad 
esso assegnati in modo che il sistema possa facilmente individuare le parti di disco 
occupate dal file. 

Cosi se, ad esempio, viene creato il record 1 di 128 bytes relativo ad un nuovo file, 
ad esso vengono assegnati 1024 bytes (che potranno essere utilizzati per i records 
da 1 a 8). Quando in seguito si vorrà creare un nuovo record verranno assegnati al fi¬ 
le altri 1024 bytes. 

Con la versione 5. la generazione del record 81 in 
un file vuoto provoca l’allocazione solo di 1K di 
memoria. Se i records hanno lunghezza 128 bytes 
lo spazio riservato in memoria sarà utilizzabile per 
i records da 81 a 88. 


Allocazione dello spazio su disco 


1024 

bytes 


Sul TRS80 NEW DOS la stessa operazione provo¬ 
ca invece l’allocazione di tutto lo spazio per gene¬ 
rare anche gli 80 records precedenti. 


81 

88 


Allocazione con microsoft 5. 


VUOTO 


1024 bytes 


VUOTO 


Il sistema DTC Microfile invece assegna lo spazio 
su disco per blocchi di 128 bytes e gestisce tale 
spazio mediante dei puntatori interni. Ciò permette 
di avere sempre una gestione ottimizzata dello 
spazio allocato (cfr files virtuali). 


81 


VUOTO 


128 bytes 


VUOTO 


Allocazione con DTC Microfile 


93 






ALLOCAZIONE DINAMICA 


Utilizzando dei files ad accesso diretto è possibile effettuare l’aggiunta di nuovi re- 
cords in coda al file stesso (utilizzando ad esempio la funzione LOF), mentre non è 
possibile recuperare dinamicamente lo spazio lasciato libero da eventuali records 
soppressi senza riorganizzare completamente l'intero file. 


Risulta evidente a questo punto che una tale operazione, effettuata ogni qualvolta 
viene soppresso un record, produce una notevole perdita di tempo. Non converrebbe 
invece organizzare il file In modo da recuperare "dinamicamente” lo spazio disponi¬ 
bile senza riorganizzare “fisicamente” la struttura del file stesso? 


Per ottenere questo tipo di organizzazione si possono seguire due vie; la concate¬ 
nazione dei records resisi “disponibili” e la gestione di una Bit-Map. In questo para¬ 
grafo limiteremo la nostra trattazione al secondo metodo che ci sembra più significa¬ 
tivo. 


La Bit-Map è una tabella che specifica per ogni record del file se questo è utilizzato 
oppure se è disponibile. 


Analizziamo ora nei dettagli la struttura di questa Bit-Map. Supponiamo che tale a- 
rea di memoria sia formata da 256 bytes (cosa che permette di memorizzarla facil¬ 
mente nei primi records del file) inizializzati a 0 in fase di inizializzazione. 


Se il numero di records previsti per il file non supera 254 verrà associato ad ogni 
record un byte della Bit-Map. Ogni volta che viene utilizzato un record (generazione), 
viene posto a ‘V il byte corrispondente nella Bit-Map, come illustrato nell’esempio: 


1 2 3 4 5 


1 1 

0 1 1 

BIANCHI 

XXXX 

ROSSI 

XXXX 

libero 

COLOMBO 

XXXX 


BIT - MAP 
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10 NRE'C-;’54:DtM BITMAF'li (NREC ) 

20 POR 1^1 TO NREC:FIB.D »l,(I-l)*l A:5 Dt, 1 A$ BIFMAFKI), 

(256-1) AS Rt.:NEXT I 
30 FIO D 1*1,12 AS N*,244 AS X« 

40' 

100 GOSUB 1000 'RICERCA DI UN RECORD LIBERO' 

no INPUT "MUOVI DATI"sNOME$, XX* 

120 L3ET M« riiMlEliLSET X* = XX* 

130 PUT #1 ,Rf:( I IB 'RECLIB: INDICE RECORD LIBERO' 

140 GOSUB 2i;-00 'AGGIORNAMENTO BITMAP' 

150 STOP 

1000 GEI #1,1 'LETTURA DELLA BITMAP' 

1005' 

1010 FOR TO NREC 'RICERCA RECORD LIBERO' 

1020 IF ASC(BrrMAP*(W) )=^43 TUEN RECLIB ^W: GOTO 1500 

1030 NEXT W 

1040 F'RINT "Ni'JN VI SONO RECORDS DISPONIBILI" : STOP 

1500 RETURN 

1999 'AGGIORNAMENTO BITMAP:AGOlUNTA' 

2000 GET tu , 1:1 SET BI TMAP» ( REGI. IB ) -CI IR» ( 49 ) : PUT I» 1, 1 : RE TURN 

2999 ' SOPPRESSI iTNE 

3000 GE I #1,1: L. SET BI T MAP» ( RECI IB ) =CHR» ( 43 ) : PUT #1,1: RE TURN 


Se invece si deve utilizzare un numero piuttosto alto di records conviene assegna¬ 
re ad ogni record un solo bit nella Bit-Map. 

In questo modo con 255 bytes si possono gestire più di 2000 records. 


10 ' 
20 
30' 
40 
50 
60 
70' 
80 
90 
100 
110 ' 
120 ' 
130 
140 
150 
1 60 
170 
180' 
190 
200 
210 
220 
230' 
250 


GESTIONE DI UNA BITMAP 


DIM EiMAP»(50) 

OPEN "R",#l,"BIT":FIELD #1,12 AS M«,244 AS X* 

FOR 1 = 1 TO SOiPIELD #1, (1-1 ) AS D», 1 AS f^MAP* ( I ): NE X T I 

INPUT "NOME"?NOME» 

IjTjSUB 140 

LSET N»=NOME»iPUT #1,REC:I IB 


GET #1,1 

FOR 1=1 TO 50 - 

XV.=:-ASC(BMAP»(I ) ) 

IF xy.=255 THEN 250 

FOR NBIT=1 TO 3 
A-/.=2* (NBIT-1 ) 

IF (Xr. AND Ay.)--0 
NEXT NBIT 

NEXT I 


RII' ERGA RE 


CORD LIBERO' 


NBY:N.8YrC; NeiTiN.BlT 


'TUTTI I BIT SONO SETTATI' 
RICERCA DI UN BIT RE'SETTATO 


THEN NBY = I: 1^50: NEXT I : (50T0 290 
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?. 60 ' 

270 FRINT"NON VI SONO RECORDS DISPONIBILI";STOP 

230 ' 

290 LSET BMAP*(NBY) = CHR» (X7.+A7. ) 'AGGIORNAMENTO DELLA BITMAP' 

300 ReCLIB=((NBY-1)»S+NBIT>+1 RECORD LIBERO' 

310 PRINT RECLIB 

320 PUT 1*1,1 

330 RE rURN 

350 'SOPPRESSIONE DI UN RECORD' 

360 GET #1,1 

370 NBIT=(RECSOP-1) MOD S;NBY=INT <(RECSOP-l)/S) + l 

380 LSET BMAP*(NBY)=CHR«(ASC(BMAP*(NBY))-(2'(NBIT-1))) 

390 PUT #1,1 

400 RETURN 


1 

1 

0 

0 , 0 

0 

0 

mm\ 

“““ “ 

Ibit-mapI 

X 

X 

X 

X 






X 

X 

X 

X 






libero 



FILES RANDOM VIRTUALI (DTC MICROFILE) 

L'utente vede questo tipo di fiie come un fiie ad accesso diretto, in reaità su disco 
viene aiiocato lo spazio necessario alla scrittura di un record solo all’atto del PUT. In 
questo modo si può generare logicamente un file di 4096 records vuoti senza occu¬ 
pare “fisicamente” spazio su disco. Infatti con questo tipo di gestione dello spazio se 
l'utente utilizza i records 2, 4 e 100 vengono occupati solo 3 'settori' sul disco. 

Questo tipo di file, ad accesso Random 'virtuale' permette di ottimizzare lo spazio 
su disco e la ricerca del punto in cui allocare un record viene in genere fatta ricorren¬ 
do ai codici di tipo hash. 

Organizzazione fisica 

Una tabella indice permette di stabilire una corrispondenza tra i numeri dei records 
logici (codici conosciuti dall’utente) ed i reali indirizzi di tali records su disco. 

In genere per ottimizzare il tempo di ricerca si fa ricorso a due livelli di indicizza¬ 
zione: un indice a livello 0 la cui tabella à residente in memoria ed un indice di livello 
1 la cui tabella, puntata 4095 tramite Ìq è residente su disco. 
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N LOGICO 


Questa seconda tabella è gestita dinamicamente ed è organizzata in biacchi di 128 
bytes capaci quindi di contenere 64 puntatori. 

Osserviamo che con una organizzazione di questo tipo non si possono gestire re- 
cords con codice numerico superiore a 4096. 




N Pi STA INDEX N SETI. 



"BIT MAP" IMMAGINE 0 ^--Mlbero 

1--(occupato 


ACCESSO INDICIZZATO (PRINCIPIO) 
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128 bytes 



LIVELLO 1 SU DISCO 


ACCESSO INDICIZZATO (REALE) 







TERMINALE VIDEO TRS80 


Durante una trasmissione di dati è importante poter controllare la correttezza di 
ciò che si trasmette e, possibilmente, effettuare questo controllo carattere per carat¬ 
tere. 

Tale controllo viene ottenuto, sul TRS80, tramite la funzione INKEY$. 


VETTORE XX (ascissa) 



VETTORE LO 
(lunghezza campo) 

12 

10 

25 

15 

5 

15 


VETTORE TC 
(tipo campo) 
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Il posizionamento dei cursore su un punto dei video può essere fatto mediante ia 
funzione 

PRiNT (a>(Y*64)-X 

ove X e Y rappresentano le coordinate dei punto. 

li controllo sulla tastiera in attesa deila battitura di un tasto viene fatto mediante la 
funzione iNKEY$ come iliustrato nell’esempio: 

370 X$=INKEY$ Se X$=“” significa che non 

380 ìF X$="”THEN 370 è stato premuto nessun tasto 


430 PRINT X$ Viene visualizzato ii carattere battuto 

L’acquisizione di un’intera stringa viene ottenuta concatenando tra ioro i caratteri 
battuti. 

440 Y$=Y$+X$ 

L’eliminazione deli’ultimo carattere battuto si può ottenere battendo Control-H (co¬ 
dice ASCII 8) e viene realizzata nei modo seguente; 

410 IF ASC(X$)=8 THEN Y$=LEFT$(Y$,LEN(Y$)-1) 

Se per i’acquisizione dei caratteri viene utiiizzata ia funzione iNKEY$ non si ha ia 
gestione automatica del cursore. Il suo avanzamento o arretramento deve essere 
pertanto gestito da programma. Si può aliora visuaiizzare ii carattere acquisito nel 
punto in cui è posizionato il cursore mediante l’istruzione. 

430 PRINT @XY + LEN (Y$),X$: 

Se la gestione dei cursore fosse invece automatica, per visualizzare ii carattere X$ 
sarebbe sufficiente fare; 

PRINT X$ 

(Per gestire ia posizione del cursore su una riga si potrebbe ricorrere anche aiie for¬ 
me LSET e RSET). 

L’esempio seguente, che fa riferimento alla figura della pagina precedente, mostra 
come viene realizzata la visualizzazione dei vari campi. 

ir.40 UN TC(I) OOTO 1550,1560 

t V:‘0 PRINT RS ( I ) ; S IR X NGS ( I..C ( I ) -I PN ( R* (I ) 

1550 PRINT RUd >;STR1NG*(IC( I )-l FN(R*(I )),’■- " ) 
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Se il valore da inserire in un campo supera la lunghezza massima prevista si ha un 
salto al campo successivo 

450 IF LEN (Y$)>=LC(I) THEN GOTO 480 
come risulta dal programma presentato in conclusione di questo paragrafo. 

Mantenendo premuto il tasto RUBOUT si ottiene la cancellazione degli ultimi ca¬ 
ratteri acquisiti, sempre che la stringa non sia vuota. Se invece si incontra una strin¬ 
ga vuota, premendo il tasto RUBOUT si ha un riposizionamento sul campo preceden¬ 
te. 

Se si vuole utilizzare, per la memorizzazione dei dati acquisiti, un file ad accesso 
diretto, occorre dichiarare l’ampiezza dei campi (vettore RE$) tramite un'istruzione 
FIELD. 

Nel nostro esempio sono previsti tre tipi di campi; 1 ALPHA — 2 INTEGER - 
3 REAL SIMPLE P e la funzione di controllo è richiamata alla riga 420: 

ON TC{I) GOSUB 580,590,590 


Ai controlli da noi proposti possono essere aggiunti altri controlli "personalizzati”, 
cosi come nulla impedisce di utilizzare dei particolari caratteri per cancellare un inte¬ 
ro campo o per posizionarsi direttamente su un campo già acquisito. 

Nel programma da noi proposto è prevista la visualizzazione del contenuto già esi¬ 
stente in un campo prima di accettarne la modifica. 


Presentiamo ora il programma che realizza tutte le funzioni da noi descritte. 


IO ACQUISIZIONE DATI DA TEF^NINALE TRSSO 

20 CARA1 VERE PER CARAI I ERE 

40- 

70 CLEAR (OOOO):NC-6 

80 

90 - RtSUl.rAri IN R* £ RE* 

lOO' 

110' INIZIAI..IZZAZIONE POSIZIONE DEL CURSORE 

lis¬ 
cio DATA 1,3,5,7,9,ll:FOR 1=1 TO NC:READ YY(I):NEXT 'ORDINATE' 

130 DATA 5,5,5,5,5,5: FOR 1=1 TO NC:READ XX<I):NEXT 'ASCISSE' 

140 DATA 1,1,1,1,3,1: FOR 1 = 1 TO NC:READ TCdllNEXT TIPO CAMPO 

150 DATA 20,10,25,15,5,15:F0R 1=1 TO NCiREAD LC<I);NEXT 

'I..I.INGHEZZA DEI C.AMPI' 

lóO DATA "COGNOME","NOME","VIA","CITTA","CAP","TELEFONO" 

NOME DEI CAMPI' 

170 FOR 1=1 TO NC: READ CAMPI*(I):NEXT I 

ISO' 

190 GOSUB 250:STOP 

215' GESTIONE DEL VIDEO PER I FILES RANDOM 

220' DICHIARARE I CAMPI 
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230 ' : 

240' : 

250 FOR 1=1 TO NCsR*<I)=""!NEXT 

260 CLS 'CANCELLAZIONE VIOEO' 

270 FOR 1=1 TO NC ‘VISUALIZZAZIONE MASCHERA' 

2S0 XY-YY(I)*ó4+XX<I)!PRINT@ XY,CAMPI$<I)j 

295 PRINT@ XY+10, ;0N TCd) GOSUB 640,645,650 

300 PRINT® XY-t-34, :0N TCd) 003UB 550,560,560 

310 NEXT I 

320' 

330 PRINT@ 924,"R0B0UT PER POSIZIONARSI SUI RECORD PRECEDENTE' 

340 I=1:Y»="" 

350 XY=YYd )»64+XXd )+34: IF TCd > = 1 THEN AES="." ELSE AE»="-" 

355' 

360 PRINTQ XY+LEN<Y*),CHR»d36)j 'POSIZIONAMENTO DEL CURSORE' 

370 X*=INKEY* 'CONTROLLO TASTIERA' 

380 IF X1i=”" THEN 370 

390 IF ASC<X*)=13 THEN IF Y*="" THEN GOTO 490 ELSE GOTO 480 

'CONTROLLO SUL CR' 

400 IF ASC(X*)=8 THEN IF LEN(Y*)=0 THEN 

IF I>1 THEN GOSUB 540:1 = 1-1 : GOTO 350 ELSE GOTO 370 
410 IF ASC(X*)=3 THEN PRINTO XYH.ENIY*),AE«;: 

Y*=LEFT*(Y*,LEN < Y*)-1): GOTO 360 

420 ON TCd) GOSUB 580,590,590: ON Q GOTO 430,370 'CONTROLI.O' 

430 PRINT@ XY+LEN(Y*),X*: 'VISUALIZZAZIONE CARATTERE 

440 Y«--Y«+XS 'AGGIORNAMENTO STRINGA' 

450 IF LEN(Y4i)=>LCd ) THEN 480 'CONTFÌOLLO SUL CAMPO' 

460 GOTO 360 

470' 

480 R«d)=Y*:ON TCd) GOSUB 610, 615, 620: Y*=" " ' MEMORI Z Z. CAMPO 

490 IF i;>=NC THEN RETURN 

510 GOSUB 540:1=1+1:GOTO 350 'RIPOSIZIONAMENTO' 

530' 

540 PRINT9 XY,""::ON TCd) GOSUB 550, 560,560; RETURN 

550 PRINT R*d )?STRING»(LCd )-LEN<R»<I )),"." ):RETURN 'VISUALIZZA- 

560 PRINT R*d ):STRING*(LCd )LEN<R*d )),"-'• );RFTURN 'ZIONE 

'SIRINGA' 

561 ' 

562' 


580 

590 

600' 

610 

615 

620 

635' 

640 

645 

650 


IF ASC(X*)<32 THEN 0=2:RETURN ELSE 0=1:RETURN 'CONIROILO 
IF ASC(X*)<48 OR ASC<X*)>57 THEN Q=2;REtURN ELSE i3=l:RErURN 


LSET RE*<I)=Y*;RETURN 

L3ET RE*(I)=MKI*(VAL <Y*)): RETURN 

LSET RE*(I)=MKS*(VAL(Y*)): RETURN 


'CODIFICA 
DE I 

'CAMPI 


PRINT RE*(I);:RErURN 
PRINT CVI(RE*(I)); : RETURN 
PRINT CVS(RE*(I ) )::RETURN 


'DECODIFICA 

DEI 

'CAMPI 


Gestione di un terminale remoto 


Quando si deve utilizzare, per la trasmissione dei dati, un terminale remoto, cioè 
indipendente dal sistema, la gestione di quest’ultimo avviene tramite dei segnali di 
controllo che vengono trasmessi da e per l'U.C.E. 


102 



Per esempio per ottenere la ‘cancellazione dello schermo’ si utilizza l’istruzione: 


PRINT CHR$(X) dove il valore di X dipende dal particolare tipo di terminale. 


Il posizionamento del cursore si ottiene inviando al terminale un carattere di con¬ 
trollo seguito dalle coordinate del punto: 


PRINT CHR$(XY):CHR$(X}^:CHR$(Y). 

valore diperltente 
dal tipo di terminale 



ascissa 


ordinata 


Per alcuni terminali è necessario aggiungere alle reali coordinate una co¬ 
stante (32 p.es.) 


Alcuni caratteri di controllo servono per gestire qualsiasi tipo di terminale: 
per esempio: 

PRINT CHR$(7) attiva sempre la suoneria 
PRINT CHR$(8) fa retrocedere il cursore 
PRINT CHR$(13) riposiziona a capo 

Nel sistema Microsoft 5. la funzione INPUT$(1) permette di acquisire i dati 
carattere per carattere. 


Presentiamo ora in particolare la gestione di un terminale LX500. 

I principali caratteri di controllo sono: 

Cancellazione: PRINT CHR$(133) 

Inversione: PRINT CHR$(29) 

Fine video: PRINT CHR$(28) 

Posizionamento del PRINT CHR$(27)+CHR$(61)+CHR$(32+Y) 
cursore sul punto XY: +CHR$(32+X) 

Come si vede le coordinate vengono trasmesse nell’ordine Y,X. 

Se si vuol generare un programma di acquisizione dati che valga per più tipi 
di terminali, dovrà essere predisposta una routine che assegni ai caratteri di 
controllo il valore adatto per ciascun terminale: 

INPUT“TERM. TIPO”:TYPE$ 

IF TYPE$="type1" THEN XY$=CHR$(XX1):... 

IF TYPE$=“type2” THEN XY$=CIÌR$(XX2):... 

Presentiamo ora un programma per la gestione del terminale LX500 basato sui dati 
dell’esempio precedente. 
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Nota: per II codice postale (numerico) la lunghezza definita in FIELD(4) è diversa da 
quella definita per lo spazio su video (5 caratteri). 

10-' OF.SriONF. DI UN lERMINAIE RFriOrO I.X500 
35 'RI SUI TATI IN R$ E RE SUI t 

40 IJPEN "R'M»! , "FII.E” 

60 CANCEL.*--^C'HR* ( 133 ) : RE rR0r.i.lR3*= CHR* (3 ) : XY$=CHR* <;'7 ) fCHR$ (61 ): 

VIDEO* =CURt ( 29 ) : FVI DEC*^EHR* ( 23 ) : EX =:33! ER* ==CI IRt < 13 ) : 
DRIN*=CHRT. ( 7 ) 

30 NC-5; D l M RtsSUL* ( NC ), R* (NC >, CAhP I » ( NC ) 

90 DATA " iSOGNOME " , " NOME " , " VIA " , " C I T1 A " CAP " : 

FOR 1 = 1 rei NC;READ CAMPI*( I ): NEXT I 
100 DATA 2,2,2.2,2:F0R 1=1 TO NCTREAD XX(I>:NEXT 'ASCISSE" 

110 DATA 3,5,7,9,11:F0R 1=1 TO NC:READ YY(I):NEXT ORDINAIE' 

120 DATA 1,1,1,l.SsFOR 1=1 TO NC; READ TC(I);NEXr TIPO 

130 DATA 12, 15,25, 10,5:FOR 1 = 1 l'O NC:READ I.C(I):MEXT 'I.UN0HE7ZA 

150 FIELE! #1,12 AS RESUL*(1),15 AS RESUL*(2),25 AS RESUL*(3), 

10 AS RE SUL* (4), 5 AS RESI.II.*(5) 

160 DEE FNXY»(X,Y)=XY*+CHR*(BX+Y);CHR*(C^X+X) 'INDIRI77.CURSORE 
170 GET #1,100;OOSUB 190;PUT #1,100;STOP 

190 PRINT CANi::EL*; ;FOR 1 = 1 TO NC; R* ( I ) = " " ; NEXT I 
210 FOR 1=1 TO NC 

220 PRINT FNXY*(XX(I),YY(I));VIDEO«;;PRINT USINO" 

CAMPI*(I); 

230 PRINT FNXY*(XX(I )fl5,YY<I));FV(DEO*; 

240 ON TC <I) GOSUB 560,570,580 'VISUAL. t Z Z. VECCHI VAL' 

250 PRINT FNXY*(XX(I)+35,YY(I)); 

260 ON TC <I) GOSUE 450,460,460 "VISUALIZ Z.MASCHERA' 

270 NEXT I 
290 I=1;Y»="" 

300 PRINT FNXY*(XX(I )+35,YY(I));;IF TC(I) = 1 THEN AE*="." ELSE 

AE*="-" 

320 X*=INPUT*<1) 'LETTURA DI UN CARATTERE' 

330 IF X*=RETROCURS* AND LEN(Y*)=0 THEN PRINT DRIN*;; 

IF I>1 THEN GOSUB 440;1 = 1-1 ;Y*="GOTO 300 ELSE GOTO 320 
340 IF X*=RETROCIJRS* THEN Y*=LEFT» ( Y*, LEN ( Y* )- 1 > ; 

PRINT RETROCLIRS*; AE*; ;00T0 3.20 SOPPRESSIONE 1 CARATTERE 
350 IF X*=CR* THEN IF Y*="" THEN GOTO 410 El SE GOTO 400 
360 ON TC(I) GOSUB 430,490,490;ON Gl GOTO 370,320 
370 Y*=Y*+X*;PRINT X*: 

330 IF LEN<Y*)<LC(I) THEN GOTO 320 ELSE PRINT DRIN*; 

400 R*(I)=Y*;ON TC(I) GOSUB 510,520,530;Y*="" 'CODIFICA' 

410 GOSUB 440; IF i;: NC THEN RETURN 
420 1=1+1;GOTO 300 

440 PRINT FNXY*(XX<I)+35,YY( I )) ; ;0N TCCI) GOSUB 450,460,460;RETURN 
450 PRINT R*(I>;STRING* < LC(I)-LEN(R*(I; RElURN 
460 PRINT R* ( I ) ; STRING* <L.C ( I > -I EN (R* ( I ; RETURN 

470' 

430 IF ASC<X*)<:32 THEN PRINT DRIN*;;Q=2;RETURN CONTROLLO' 

ELSE Q=l;RETURN 

490 IF ASC(X*)<43 OR ASC(X*);:57 THEN PRINT DRIN*; : 0=2: RETURN 

ELSE 0= 1 ; RE, I URN 

500' 

510 LSET REXSUL*(I )=Y*;F<ETURN 

520 LC^ET RESUL*(I )=MKI*(VAL(Y*) );RETURN 

530 LSET RE:5Ul * ( I ) = MKS* ( VAL ( Y* ) ) ; RE I URN 
560 PRINT RESUL*(I ) ; ; RETURN 

5/0 PRI NT CVI(RESUl*(I> >; : RE TURN 

530 PRINT CVS(RESUL*(I)); : RE TURN 


■'CODIFICA 

DECODIFICA 
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CAPITOLO 5 


L’ACCESSO INDICIZZATO 


I files ad accesso diretto, il cui uso è ammesso da quasi tutti i sistemi Personal in 
commercio, permettono di accedere ad un record solo tramite un indice posizionale. 
In genere però, specialmente in ambito gestionale, è utile accedere ai records dei fi¬ 
les, anche tramite dei codici particolari, detti chiavi (codici mnemonici, nomi simboli¬ 
ci od altro). 

La ricerca di un record in un file tramite una chiave (che in genere non è altro che 
il contenuto di un 'campo') può ovviamente essere fatta mediante una lettura sequen¬ 
ziale del file stesso. Tenendo però conto del tempo necessario per la lettura di un re¬ 
cord (circa 100 ms) risulta troppo alto il tempo di risposta per files con un numero di 
records piuttosto alto. 

Conviene quindi, anziché seguire questa strada, stabilire una corrispondenza tra il 
valore della chiave e la posizione occupata dal record nel file, in modo da ridurre sen¬ 
sibilmente il numero di accessi al disco. 

Per realizzare questo tipo di corrispondenza si utilizza, in genere, uno di questi due 
criteri: 

- ricavare l’indirizzo fisico del record tramite una funzione che permette, in un nu¬ 
mero ridotto di passaggi, di calcolarlo direttamente dal valore della chiave (codifi¬ 
ca hash). 

- utilizzare una tabella indice di conversione. 

II primo metodo, pur essendo di facile applicazione, è poco usato in quanto richie¬ 
de l’allocazione di molto spazio su disco anche per files piuttosto ridotti. Per questo 
motivo centreremo la nostra attenzione sui files ad accesso 'indicizzato' ed in parti¬ 
colare prenderemo in considerazione questi tre metodi: 

- accesso indicizzato semplice in cui la tabella di conversione viene ogni volta ge¬ 
nerata in memoria centrale 
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— accesso indicizzato con conservazione deiie tabelie di conversione in un apposito 
file 

— accesso indicizzato con l'uso di due livelli di indicizzazione. 

La scelta tra questi tre metodi deve essere fatta dal programmatore tenendo conto 
delle particolari esigenze del problema da trattare. 

Alla fine del capitolo viene proposto un esempio, realizzato sul TRS80, che illustra 
in modo abbastanza soddisfacente le tecniche per l'uso dei files indicizzati. 


ACCESSO INDICIZZATO CON TABELLA DI CONVERSIONE 
IN MEMORIA CENTRALE 


La tabella di conversione valore chiave-indice record è residente in memoria e vie¬ 
ne generata, tramite una lettura sequenziale del file, all'inizio del programma. 


CHIAVE INDICE 


ROSSI 

1 

BIANCHI 

2 

ZOE 

3 




TABELLA 

INDICE 


presente in memoria 
centrale 


ROSSI 

XXXXX 

BIANCHI 

XXXXX 

ZOE 

XXXXX 




File su disco 


Se la tabella di conversione non è ordinata rispetto ai valori della chiave, per acce¬ 
dere ad un record del file occorre effettuare prima una ricerca sequenziale della 
chiave nella tabella e poi accedere al file tramite l'indice corrispondente. 

Poiché questo metodo richiede la costruzione della tabella di conversione (INDI¬ 
CE) all'inizio del programma, risulta essere poco conveniente quando il file contiene 
qualche centinaio di records: in questo caso infatti occorrerebbe un tempo piuttosto 
'elevato' per la generazione della tabella stessa (qualche decina di secondi). Per 
contro l'indicizzazione semplice ha il vantaggio di essere facilmente gestibile anche 
da programmatori poco esperti e di adattarsi agevolmente anche a programmi già e- 
sistenti in quanto può essere realizzata tramite due semplici sottoprogrammi: uno per 
la generazione della tabella e l'altro per la ricerca sequenziale della chiave nella ta¬ 
bella stessa. 
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Per risparmiare spazio in memoria si potrebbe ottimizzare la costruzione della ta¬ 
bella memorizzando, ad esempio, solo i primi due caratteri relativi ad ogni valore del¬ 
la chiave. Questo artificio, che permette tra l’altro di ridurre notevolmente i tempi di 
ricerca, presenta però un inconveniente: se esistono più chiavi aventi i primi due ca¬ 
ratteri in comune si rendono necessari più accessi al file per ritrovare il record desi¬ 
derato. 

Nel caso in cui un record logico sia suddiviso in più records fisici sarà necessario 
memorizzare nella tabella, per ogni valore della chiave, oltre al numero di record fisi¬ 
co corrispondente anche la posizione che il record logico desiderato occupa all'Inter¬ 
no del record fisico. Queste due informazioni possono essere raggruppate in un unico 
dato cosi ottenuto: 

N=(n° ree. //s/co*NLOG)+PQS 

ove NLQG rappresenta il numero di records logici contenuti in ogni record fisico e 
POS la posizione occupata dal record logico in esame all'Interno del record fisico. 

La decodifica successiva può essere fatta nel modo seguente: 

/VF/S=INT(N/NLOG) 

POS=N MOD NLQG 

Nell’esempio da noi proposto l’aggiornamento della tabella di conversione, con 
l'aggiunta di nuove chiavi, può venir fatto solo tramite una nuova lettura del file. Per¬ 
tanto non sarà possibile accedere, tramite la tabella, ad un nuovo record per tutto il 
periodo intercorrente tra la generazione del record stesso e la rigenerazione della ta¬ 
bella di conversione. 


IO 
SO' 
30 ' 
40' 
70 
90 
100 ' 
no 

ISO' 

1:30 

140 

150 

160' 

170' 

ISO' 

190 

200 

210 

220 

230 


ACCESSO INDICIZZATO CON L"USO DI UNA TADELI A DI CONVt k:-. l UNE; 
POSTA IN MEMORIA E i.EENERATA Al ,L" INI ZIO Dl-L FI<l:ll:iB•.^HMA 


OPEN "R".#!,"FILE" 

FtEl.D #1,10 AS N«,,15 AS CNS, 20 AS TI..S, 4 AS COD* 

DIM MOM* (.?00 ), INDEX! 200 ):OOSUB 190 ' tjENERAZ IONE TABEL-LA' 

PRI NT : INPUI "RI CEiRCA PER NOME " ; R» 

IF R«=^^ "Sr’ THEN GCiSUB 300 
STOP 


GF.NEFÌAZIONE DELLA TAEET LA INDICE 
FOR 1 = 1 TU L0F(1)-1 LETTURA SEQUENZIALE DEI. FILE' 

gf:t #1,1 

IF ASC<N*)=0 THEN 240 

MOM»( J) CN*: INDEX (.J) = I : .J=JH CORRISPCjNDENZA 
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'CHIAVE-INOICE' 


240 NEXT I 
250' 

260 RETURN 

290' RICERCA PER CHIAVI 

300 PRINT;INPUT"COCNOME "sKEY^sIF KeY*="“ THEN RETURN 

310^ 

320 L=l.EN(KEY«) •'SI POTREBBE ABBREVIARE IL COGNOME 

330' 

335' 'RICERCA CHIAVE' 

340 POR 1=1 TO J-1 'J-1=NUMER0 DI CHIAVI' 

350 IF KEY«-=l.EFT$(NCm(I ),L) THEN X = I : I =0-1 : NEXT I:00T0 410 

360 IF 1=0-1 THEN PRINT:PRINT"SCONOSCIUTO":PRINT:GOTO 300 

370 NEXT I 
380' 

410 CET #1,INDEX<X) 'LETTURA RECORD CERCATO' 

420 PRINT-.PRINT N*,CN$,TL* 

430 GOTO 300 

450-' » USANDO IL SISTEMA MICROSOFT 5. 

460' FARE ATTENZIONE ALL"USO DI LOF 

470' 

480' » USANDO IL SISTEMA TRSSO 

490' USARE: Cl.EAROOOO) 

RIMPIAZZARE LOF(1) CON L0F(1)-H 

510' PRIMA DI UN"ISTRUZIONE INPUT X* ASSICURASI CHE X*="" 

520' PER ALLOCARE IL DISCO 1 USARE: OPEN "R","FU.E:1" 

530' RICORDARSI DI CHIUDERE I FIl.ES ! ! I ! ! ! ! ! ! ! ! ! ! ! ! 


ACCESSO INDICIZZATO CON L’USO DI UNA TABELLA DI CONVERSIONE 
CONSERVATA NEL FILE 


Se la tabella di conversione viene conservata nei primi records del file, effettuan¬ 
dovi eventualmente delle modifiche, basterà riportarla in memoria ali’inizio di ogni 
seduta, risparmiando così il tempo necessario per la sua generazione. Bisogna soi- 
tanto fare attenzione ad effettuare i’aggiornamento delia tabella residente nel file o- 
gnì qual volta si effettua una variazione (aggiunta o eliminazione di records) nel file 
stesso. Infatti senza questo accorgimento si rischierebbe di perdere tutte le informa¬ 
zioni relative alle modifiche effettuate in caso di interruzione accidentale nell’alimen¬ 
tazione. 

Inoltre, se la tabella viene conservata in modo ordinato per permettere ad esempio 
la ricerca dicotomica, bisogna riorganizzare l’intera tabella ogni volta che si deve ag¬ 
giungere una chiave. (Se il numero di records è piuttosto elevato questa operazione 
può risultare lunga). 

Il programma seguente illustra i concetti sopra esposti. 
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IO' ACCESSO INDICIZZATO CON L"USO DI UNA TAPEI I A INDItt; CONSEKVATA 
20' SU Disilo 
30 ' 

40' 

90 NKEY-20:L KEY==4 SUL TRS80: NKEY= 40 

100 DIM K6Y<(NKEY),PT»<NKeY) ' I .KEY: LUNGHEZZA CHIAVE 

110 OPEN "R",#l,"FILE" 'NKEY: NUMERO DI CHIAVI PER RECORD 

120 ' 

130 FIELD #1,10 AS N*,15 AS CN*,20 AS TEL*,4 AS COD* 

140 FOR 1=1 rO NKEY 

145 FIELD #1,6»(I-1) AS D*,LKEY AS KEY*(I),2 AS PI*(I ) 

149 NEXT I 

150 DIM NOM*(200),INDE X(200) 

160' 

170 GET #1,1:IF ASC(KEY*(1))=0 THE-N OOSUB 960:GOTO 190 
172 'INIZIALIZZAZIONE DELLA TABELLA INDICE' 

180 GOSUB 500 

190 PRINT TAB<20) "FUNZIONI":PRINT 

200 PRINT TAB<20) "CREAT:GENERAZIONE DI UN NUOVO RECORD" 

210 F'RINT TAB(20) "RNI :RICE^RCA PIZR CHIAVE NOMINATIVA" 

220 PRINT 

230 PRINT; INPUT"FUNZIONE(CREAT,RNI,EINE) "; MODE* 

240 IF MGDE*="CREAT" THEN GOSUB 310 
250 lE MODE*="RNr' THEN GOSUB 900 
260 IF MGDE*="FINE" THEN CLOSE #1;ST0P 
270 GOTO 230 
28i;)' 

300' GENERAZIONE 

310 GOSUB 740: ON Q GOTO 320,330,460 'CONTROl.LO SUI-LA CHIAVE 

320 PRINT "ESISTE GIÀ'":GOTO 310 '0=1 

330 NREC-LOF(1):GET l*l,NREC 'AGGIUNTA ALLA FINE FILE 

340 LSET CN*=NOM* 

350' 

360 INPUT"NOME NOME*:LSET N*=NOME* 

370 INPUT"TELEFONO ";T*:LSET TEL*^T» 

380' INPUT"MATRICOLA ":MT*:LSET COD*=MT* 

390' 

400 PRINT;PRINT CN*,N*,TEL*,COD*:R*="" 

405 INPUT"OK? ":R*:IF LEFT*(R*,1)<>"S" THEN IF R*<>"OK" THEN 310 
410 PUT #1,NREC 

420 PRINT:PRINT"IL NUOVO CLIENTE E' MEMORIZZATO NEL RECORD ":NREC 
430 NOM*(IND) = CN*: INDE X(IND)= NREC: IND=IND+1 'AGOIORNAMENTO TABELLE 
440 GOSUB 1010 'AGGIORNAMENTO FIL.E INDICE' 

450 GOTO 310 
460 RETURN 

480' 'LETTURA DELLA TABELLA DA DISCO 

490' 

500 IND=l PUNTATORE ALLA TABEL.LA DI CONVERSIONE 

510 FOR 1=1 TO 5 '5 RECORDS SONO ASSEGNATI ALLA TABELLA 

520 GET #1,1 

530' 

540 FOR J=1 TO NKEY 

550 IF ASC(KEY*(J) )=0 THEIN 5/0 

560 NOM*( IND) -^KETtU); INDEX ( INDXVI <PT*(.J) ): IND = IND+1 

570 NEXT J 

5S0 ' 

590 NEXT I 
600 RE rURN 
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-SIO' 

620'-. 

630' 

640- 

650' 

660' 

670' 

680' 

690' 

700' 

740 

750 

760 

770' 

730 

790 

300 

310 
820' 
830 
340' 
850 
860 
370 
380' 
390' - 
895' 
900 
910 
920 
930 
940' - 
950' 
960' 
970 
980 

990' — 
1000 ' 
1010 
1020 
1030 
1040- 
1050 
1060 
1070 


1030 
1090' 
1100 
Ilio 
1120 '— 
1130' 
1140' 

1150' 
1160' 
1170' 

1180' 
1190' 

1200 ' - 


RICERCA DI CHIAVE: 

Q = 1:CHIAVE l'ROVATA 
0=2:CHIAVE INESISTENTE 
0=3:FINE RICERCA 

PRINT:CGN«=””: INPUT"COGNOME ";CGN4 
IF CGN*="" THEN 0=3:RETURN 
L=l EN(CGN«):W=1 


FOR I=W TO 200 

IF NOM*(I)="" THEN GOTO 830 

IF CGN*=l.EFT4 <NOM« ( I ), 1. ) OR CGN$ =1 EFT» (NOM-* ( I ), LKEY ) THEIM 

GOTO 850 

NEXT I 
0=2:RETURN 

GET 1»1,INDEX<I) 'CONTROLLO DELLA CHIAVE NEL RECORD 

IF CGN*=LEFT*(CN*,L) THEN NREC=INDEX<I>;0=1 : RETURN 
W=I+1:G0T0 780 'NON CORRISPONDE NEL FILE' 


'RICERCA INDICIZZATA 

GOSUB 740:ON 0 GOTO 910,920,930 'RICERCA DI CHIAVE 
PRINT:PRINT N*,CN*,TEI *,COD*:GOTO 900 'VISUALIZZAZIONE RECORD 
PRINT:PRINT"CLIENTE SCONOSCIUTO": GOTO 900 
RETURN 


INIZIAIIZZAZIONE 
INIZIALIZZAZIONE DELLA TABELLA CON VALORI NULLI 
FOR 1=1 TO 5:GET #1,1:PUT #1,1:NEXT I 
RETURN 


MEMORIZZAZIONE DELLA TABELLA SU DISCO 

K=1 

FOR 1=1 TO 5 
GET #1,1 

FOR J=1 TO NKEY 

IF NCm(K) = "" THEN PUT #1,I:RETURN 
LSET KEY»<J)=NOM*(K):LSET PT*(J)=MKI*(INDEX(K)): 
K=K+1 

NEXT J 
PUT #1,1 

NEXT I 


» PER 5. VEDERE USO DEI. LA FUNZIONE LOF 


« PER TRS80 NEWnOS 

CAMBIARE I.OF(l) IN Lf:iF(l) + l 
ClFAR(3000) 

PRIMA DI UN INPUT XS PORRE X1i="" 
OPEN "R","F11 E,NUMERO DISCO" 
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uso DI UN FILE INDICE ORDINATO 

Quando il file ha dimensioni notevoli può essere antieconomico mantenere in me¬ 
moria la intera tabella di conversione. In tal caso si consiglia invece di operare nel 
modo seguente: 

— le chiavi vengono memorizzate, con i relativi puntatori, in un file ausiliario, detto fi¬ 
le INDICE, e viene generata in memoria una tabella di conversione ridotta costrui¬ 
ta nel modo seguente: si memorizza nella tabella solo la prima chiave contenuta in 
ciascun record del file INDICE. Poiché le chiavi nel file ausiliario sono disposte in 
ordine crescente, data una chiave qualsiasi è facile risalire al record di INDICE in 
cui essa è contenuta, tramite una ricerca nella tabella di conversione. 

- viene poi fatta una ricerca della chiave richiesta aH'interno del record di INDICE 
selezionato e si accede infine tramite il puntatore associato al file originario. 


Ili 



Con questo metodo quindi sono necessari due accessi ai disco per individuare un 
record nel file originario. 

L’uso di un file ausiliario “ordinato” può apparire piuttosto scomodo, dato che ogni 
volta che si richiede l'aggiunta di una nuova chiave occorre riorganizzario per mante¬ 
nerne l’ordinamento. 

Notiamo a questo proposito che il tempo necessario per i’inserimento di una nuova 
chiave nel file INDICE è inversamente proporzionale alla lunghezza dei records del 
file stesso. Infatti, a parità di numero di chiavi, tanto più i records sono lunghi, tanto 
meno è necessario traslarli. 

Nonostante questo inconveniente ii metodo presentato mantiene una certa validità 
in quanto, in genere, il numero di ricerche per chiavi è nettamente superiore a quelio 
di eventuaii aggiunte. 

DOPPIO LIVELLO DI INDICIZZAZIONE 

Per migliorare ii metodo precedentemente iilustrato si può ricorrere all’allocazione 
dinamica dei records del file INDICE. In questo caso si parla di doppio livello di indi¬ 
cizzazione. 

infatti in fase di generazione delia tabeiia ridotta in memoria si associa ad ogni 
chiave ii puntatore al record di INDICE in cui è contenuta (ricordiamo che neila ta¬ 
bella viene utilizzata soio ia prima chiave di ogni record) in modo da mantenerla ordi¬ 
nata anche dopo l'aggiunta di nuovi eiementi. Il file INDICE viene anch’esso costruito 
in modo dinamico man mano che si richiedono delle aggiunte. 

In effetti quando si deve inserire nei file INDICE una nuova chiave si opera nei mo¬ 
do seguente: 

- dopo aver individuato, tramite ia tabeiia, il record in cui dovrebbe essere iogica- 
mente inserita la chiave si controlla se l’inserimento è possibile. 

- se il record in esame è pieno, ma il successivo permette inserimenti, si trasla in 
questo record l’ultima chiave che era contenuta nel record pieno; 

- se invece anche il record successivo è pieno si genera un nuovo record in cui vie¬ 
ne inserita la chiave che logicamente doveva essere contenuta nei record in esa¬ 
me. L’ordinamento in ogni caso è assicurato dalia tabella di conversione (indice di 
iiveilo 0) presente in memoria. 

Si opera in pratica come se il file INDICE contenesse dei “buchi” per permettere 
gli inserimenti. 

Con questo accorgimento si rende necessaria la manipolazione di due soli records 
del file INDICE per inserire una chiave. 
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La figura seguente illustra l’uso di questo doppio livello di indicizzazione 



BIANCHI 

XXX 

COLOMBO 

XXX 

BOLDINI 

XXX 

VERDI 

^QQl 

ROSSI 

XXX 




BIAN 

T 

ROSS 

t 

VERO 

T 

- 

_ 


. INDICE LIV. 0 
TABELLA ORDINATA 
• Contiene la prima 
chiave di ogni record 


INDICE DI LIV. 1 (FILE) 
Le chiavi sono ordinate 
aH’interno 
di ogni record 


• FILE PRINCIPALE 


Qui di seguito le illustrazioni spiegarlo come avviene l’inserimento di una nuova 
chiave nel file INDICE, nei vari casi possibili. 


ALLOC-. ALLOCAZIONE NUOVO RECORD 

SLIT -. SLITTAMENTO TRA DUE RECORDS 


— Vi è un posto libero nel record in cui 
deve essere inserita la chiave 


inserimento di BUCO 


VUOT<^ 


ALLOC = 0 


SLIT = 0 


— Vi è un posto libero nel record seguen 
te 


nuovo 
record 

ALLOC = 0 SLIT = 1 





inserimento 




record 

pieno 
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- Non vi è posto neppure nel re¬ 
cord seguente: 

— Assegnazione dinamica di un 
nuovo record 

+ Slittamento di un dato tra due 
records 

+ Aggiornamento della tabella IN¬ 
DICE liv. 0. 


inserimento 






,ecord 

INC 

r 

)ICE 



0 

nuovo 

^ ® record 


° ALLOC = 1 SLIT = 1 


— Aggiunta di un nuovo record 


IH 


0 

0 

0 

ALLOC = 1 SLIT = 0 


ACCESSO INDICIZZATO SUL TRS80 

L'esempio da noi proposto iliustra un metodo di indicizzazione piuttosto semplice 
da usare ma applicabile solo per un numero limitato di chiavi (300 circa). 

Assegnando due records per ciascun gruppo di 2 lettere si potrebbe comunque 
raddoppiare ia capacità del file INDICE. 

L’allocazione dinamica nel file è stata realizzata utilizzando una pseudo Bit-Map in 
modo da evitare la continua riorganizzazione del file stesso. 

Una lettura sequenziale del file INDICE (in cui le chiavi sono ordinate) permette di 
ottenere un elenco ordinato dei nomi contenuti nel file principale. 


IO 

KOR 1 = 1 ro 1:3 

' t::-! PFiJjF'DG MFI. FILE 

; iMDirE 

i'O 

GÈ. 1 I 



SO 

POR .J = l ro MXMKF.Y 

fi:XNKF;Y:N MA:S:SIi-10 DI 

F'P’ti* Fi'P f TlFi’Tl 

i:h t ,Av I 

40 

iF COI (pr»(.j ;i ) =i; 

r c.r\ p\L •..■L.irvjj 

:i THFN issro 30 


50 

GET #1,CVI (PT*(.. 

.1) ) 


60 

PBINT N* 



70 

NEXT .J 



•SO 

NEXT I 




Osserviamo che un indice distrutto può essere facilmente rigenerato mediante una 
lettura sequenziale del file principale, e in modo analogo può essere generata una 
Bit-Map. 
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IO' 
7 ‘ 0 ' 
30' 
40 ' 
TiO' 
60 ' 
70' 
80 
90 
lOCi 

no 

1 ?o. 

130 

1 40 ' 
150 
160' 
170 

180 

190' 

200 

210 ' 
220 
230 
240 
250 
360 ' 
270 
230 
290 
300 
310 
320' 
330 
340 
35<0 
360 
370 
380' 
390 
400 

410 

420' 

430 

440 

441 

442 
450 
460 
470 
480 ' 
490' 
500 
510 
520 

530 

531 ' 


t:;tiMP[0 01 USO DI KII.FS [MDtCI (UiSSO) 


1 REI GRU lOGICO - 1 REOORII FISICO 

ALI..OC47IONe DINAMICA DEI REiOjRD'j NEL RII E PRINCIPALE CLiN 
USO DI UNA BIIMAF' 


MXUN :tR[-i >.254 

DIM P r e i lXUN ), kEY» (MXUN ), r3MAPt (LREC ) 

OF'EN '■R ’,#t,"FILF"!OF'tN "R'Mt2, "INUU EFl" 

PIEI D 41,12 AS N«,242 AS XXX« ■ VRULRE Df ìFiONO' 

FUR I-l TU IRFCrFIEin #1,(I-1) AS DR, 1 ASi PMAP'I. ( I ) : NE Xl 
POR 1=1 rO MXUN;FTE1D l*2,5»<I-l) AS D2«, 2 AS Pr*(I), 

3 AS kEY$(I):NEXT 

INPU L NOME "(NOMliiIF NOMl.= "FINr" TUF.N CI. OSE #1,1*2: STOP 


OOSUU 500: IF OOl TFIEN GOTO 150 ELSE G0SUI3 220: 

ON 0 GOTO 130,-200, 150 
FRI NT NIUGOTO 150 


INF'UT'NUUVO NOME OK?’';Rli:IF R*<>"OK" OR RfC-"SI" THEN 150 
FI CE I.SET Nt =NOM>:PUT #1, NREC: OOSUB 4 30:0010 150 


GET #2,IX RICERCA CHIAVE' 

POR M==l TO MXUN 

IF evi (PT<(M) ) =0 TIIEN FR=M:OOTO 270 
NEXT M 


FOR M=1 TO MXUN 

IF evi (PT«(M) )==0 TUF.N 
IF KKEY*<KEY$(M) TUEN 
IF k;KEY*==KEY*(M) TUEN 
NEXT M 


'#1-> FILE PRINCIPALE 

390 NREC.>INDIRt7Z0 RECORD 

390 'IX-->INDIRIZ70 FILE INDICE 
340 


IF evi(PT*(M))=0 TUEN 390 

NREC =CV I (P T« (M)): OE T # 1,NREC 

IF NON# :LFF I4i(N«i,LEN(N0M*) ) THEN 3'70 

IF 1 EFrtd'lt .l.ENINOM-») ) ==NOM« TUEN INSER =M: Q=t : RETURN 

M=M+1:G0T0 330 


INSER--M:OOSUB 640:CiET #1,NREC;0=2 'CHIAVE SCONOSCIUTA' 

IF evi(PT#(MXLIN-1))<>0 TUEN PRINT "FILE INDICE COMPLETO": 
Q=3:RETURN 

RETURN 

GET #1.1:LSET BMAF* (NREC )===CHR* ( 1 ) :PUT #1,1 '.AGGIUNTA CHIAVE 
FOR LLFR 1 TO INSER STEP -1 

LSET k.EY#(U+l )=k:eY# (LI): I.SET PT$(UH )==PT#(U) 

NEXT LI 

LSE T P r#(INSER) MKI *(NREC);LSET kEY#(INSER) -KkEY» 

PLIT #2, IX 
RETURN 


CAI.COLO INDIRIZZO INDICE 

KKEY*=LEF T*(NOM#, 3) 

IX=A3C(LEFTt(N0M*, 1))-64 

IX = INT( ( rxn )/2):0 = l: IF IX =1 OR IX>13 lUFN 0=2 
RE I LIRN 
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53;:'' 

533 -' 

540' 

534' 

535' 

536' 

550' 

560 

5/0 


580 

:5‘?0' 

630' 

/^40 

650 

66*0 ■' 

670 

680 

690 

700' 

710-' 

740 

750 

755 

760 


770 

780 

790-' 

800 ^ 

310 ' 

820' 

330' 

340' 

850' 

360' 

370' 

880' 


SOF PRESSIONE RECORO 

i:.E T *1,1: L.SE T BMAP » ( hJREC ) ^Cl IRt ( 0 ) ; POI *1,1 
POR U=INSE:R TO FR-1;LSET PT$<IJ) FTJÌ(U+1 ); 

LSET KEY* (U) =KEYt(UH ):NEXT U 
PUT *2,IX:RETIJRN 


RICERCA TRAMITE LA BI(MAP 

OET *1,1 

IF BMAP$(LREC: )<>"»" THEN PRINT "ATTESA INI 7IAL 17ZAZIONE": 
OOSUB 740 


FOR W=2 TO LREC 

IF ASC(BMAP*<W))=0 THEN NREX-W:RETURN 
NEXT W 

INIZIALIZZAZIONE 

FOR P1 = 1 TO LREC ; LSET BMAP* (PI) ^-CHRIi ( 0 ) : NE X T PI 
LSET BMAP«(I .REC ) = "»": PUT #1,1 
FOR P2=l TO 13 

OET *2.P2;F0R Ql = l TO MXUN:LSET PT*(01) =MKI$(0): 
NEXT Gl:PUT #2.P2 

NEXT P2 
RETURN 


ESEMPIO 

NOM*="MARTINO" 

OOSUB 500: OOSUB 2;;0:0N Q GOTO X,Y 


X -- --> CHIAVE TROVATA 

Y --—.> OOSUB 430 (AGGIUNTAI 


PT$ 

KEY$ -- 8MAP$ 


A/B 

® 

ABE 

0 

AMI 

0 

BEL 




BIT MAP 256 POS.| 

C/D 

(D 

X \ 

® 

ABERTI 

X X X X 

E/F 

(D 


'►3 

BEL 

X X X X 


® 


>4 

AMICO 

X X X X 


(D 


5 



K/L 

® 

KOR 

T 


6 






;r® 

KORIAK 

X X X X 

Y/Z 

© 

-— 





FILE INDICE FILE PRINCIPALE 

50 chiavi per record 
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CAPITOLO 6 


DATA BASE 


Spesso in ambito gestionale ci si trova di fronte a problemi che per la loro risoluzio¬ 
ne pratica richiedono l’aggiornamento e la consultazione di archivi in tempo reale. 
Per poter affrontare in modo adeguato questo problema è necessario introdurre qual¬ 
che concetto relativo all’uso del Data Base anche se attualmente non vi sono grosse 
applicazioni di questo tipo di strutturazione dei dati nel campo dei Personal Compu¬ 
terà, in quanto il suo costo è ancora piuttosto elevato. Inoltre il Data Base risulta me¬ 
no flessibile dei files (se questi sono indirizzati dinamicamente) anche se solleva il 
programmatore dal problema relativo alla gestione dei puntatori e propone un lin¬ 
guaggio standard. 

Per questo, parlare di Data Base nel campo dei Personal Computers significa solo 
parlare di puntatori tra records di più files. Tali puntatori dovranno essere gestiti diret¬ 
tamente dal programmatore, ma vedremo comunque che tale gestione è più sempli¬ 
ce del previsto. 

Questo capitolo risulta diviso in quattro sezioni: 

- Perchè i data base 

- La gestione dei puntatori 

- Controlli contro la distruzione di files 

- Esempi di data base. 


PERCHÈ IL DATA BASE 

Nella nostra trattazione faremo riferimento ad un esempio concreto: supporremo 
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di voler ‘gestire’ rinsieme delle domande di iscrizione di studenti in vari corsi univer¬ 
sitari. Immaginiamo a questo proposito che le domande vengano memorizzate in un 
file man mano che vengono presentate allo sportello (figura 1). 

È evidente che utilizzando solo questa fonte di informazioni non è possibile verifi¬ 
care immediatamente, prima di accettare l'iscrizione, se vi sono ancora posti dispo¬ 
nibili (per soli 1000 records infatti la ricerca sequenziale richiede già quasi un minu¬ 
to). 

Inoltre si può osservare che le notizie relative ad uno studente che vuole frequen¬ 
tare più corsi devono essere memorizzate più volte. 


ROSSI 

XXX 

MATEMATICA 

BIANCHI 

XXX 

FISICA 







ROSSI 

XXX 

FISICA 


__ 

ISCRIZIONE Al CORSI 




ORDINE 

DI 

ISCRIZIONE 


È logico a questo punto chiedersi se è possibile rendere ‘indipendenti’ le informa¬ 
zioni relative allo studente rispetto a quelle relative ai corsi. 

Per risolvere questo problema si possono organizzare le informazioni in due files 
distinti (file dei corsi e file degli studenti) facendo in modo che i records dei due files 
siano correlati tra loro tramite dei puntatori (figura 2). 


PUNTATORE 



|mat 

40 

1 ° 

aao 

_ 

1 FIS 

40 

70 

_^ 





40 


•70 




ROSSI 


XXX 


10 


20 


BIANCHI 


XXX 


20 


FILE "CORSI” 


FILE “STUDENTI’ 


CORSI 




STUD. 


Vediamo ora come realizzare praticamente i legami logici esistenti tra i records 
dei due files. 

- In ogni record del file CORSI vengono memorizzati dei puntatori che ‘puntano’ ai 
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records del file STUDENTI in cui sono memorizzate le informazioni relative agli 
studenti iscritti a quel determinato corso. 

— In modo analogo, in ogni record del file STUDENTI vengono memorizzati dei pun¬ 
tatori che ‘puntano’ ai records del file CORSI relativi ai corsi seguiti da quello stu¬ 
dente. 

Organizzando i dati in questo modo si può verificare, all'atto dell’iscrizione, se il 
nome dello studente è già stato registrato, se vi sono ancora posti disponibili per il 
corso da lui richiesto, il numero ed il tipo di corsi a cui è già iscritto. Inoltre si può ot¬ 
tenere facilmente, a richiesta, l’elenco dei partecipanti ad un certo corso. 

Poiché un puntatore occupa poco spazio in memoria (2 bytes bastano per gestire 
circa 64000 valori diversi) non sorgono grossi problemi neppure con files di dimen¬ 
sioni notevoli. 

Rinunciando a questo vantaggio è possibile associare ad ogni record dei ‘puntatori 
logici’ (costituiti cioè da nomi simbolici) come illustrato nella figura 3. Adottando 
questa soluzione si rendono i due files più ‘indipendenti’: infatti la riorganizzazione di 
un file (ad es. CORSI) non Implica necessariamente la riorganizzazione dell’altro. 
Per contro però lo spazio occupato dai puntatori risulta notevolmente aumentato (si 
passa da 2 a 5 o 10 bytes per puntatore) e pertanto se i files sono di notevoli dimen¬ 
sioni si deve ricorrere, per la loro gestione, ad una tabella di conversione (vedasi ac¬ 
cesso indicizzato). 


|MAT| 

ROSSI 

BIANC 

VERDI 


T 

T 

T 


PUNTATORI LOGICI 


GESTIONE DEI PUNTATORI 

Aggiunta di elementi In una lista concatenata 

Facciamo ora riferimento ad una ditta che voglia gestire automaticamente gli ordi¬ 
ni dei vari clienti. 

Supponiamo che le informazioni siano state opportunamente memorizzate (con il 
metodo sopra esposto) in due files denominati CLIENTI e ORDINI. 

Se ad ogni cliente corrisponde più di un ordine risulta indispensabile concatenare 
tra loro gli ordini relativi ad uno stesso cliente (figura 4). 
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ADRNOM—►lOO 


Quando giunge un nuovo ordine, questo deve ovviamente essere concatenato con 
quelli registrati in precedenza. 



AGGIUNTA DI NUOVO ORDINE 


FILE ORDINI 


Per effettuare il concatenamento si portano in memoria i records interessati (uno 
del file CLIENTI ed uno del file ORDINI) e si procede aH’aggiornamento dei puntatori 
ORDSUCCS, PNOM$, PORD$. 


GET FIL FCl 1ENTI , ArIRNGM 
OET FU eORDINI,ADRGRD 


LEI TURA DAI FUFS DEI DDE 
■' RFE*l-*RElS [ N t r I 


I.SET ORDSUCC-FORD» 
LSET PORDS^^MKI * ( ADRGRD ) 
I .SET FNOM* -MK11(ADRNGM) 


' ERASFERISCE VECCHIO PUNTADIiRE 
IN ORDSUCC* 

VRASl ERISirE INDIRIZZO DEL 
NUOVO ORDINE IN FORD* 

■ 1 RASFER [ Si::e INDIRIZZO CI. I ENTE 
IN PNOH* 


PUT FIL ECl IENTI,ADRNOM 
PUT FILEORDirH ,ADRORD 


'AGOIORNAMENTO DE I 
FILE3 


Nota: Quando aggiungendo un nuovo cliente nel file CLIENTI non si hanno ordini, il 
puntatore PORD$ viene inizializzato con 

LSET PORD$ = 

L'inserimento di un nuovo elemento in una lista può essere fatto in modo da non al¬ 
terare l’ordine della lista stessa. 

Per avere la lista di tutti gli ordini di un cliente, di cui si conosce la posizione nel file 
CLIENTI (ADRNOM) si può utilizzare la seguente routine 
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CiOSUB LEI TURA; STOP 


LETTURAiGET F II PCI l ENTI, ADRNOM LETTURA RECiiRli DEI CLIENTE 
IF FORD*="»" TUEN RETURN NON VI SONO ORDINI' 
ORD=CVI (F'ORD») 

CICL ;OET FILEORDINI,ORD: T-'RINT ORDINE* ORDINE*: TTECORD 

RELATIVO ad 
ORDINE 

IF ORDSUCC*-"*" THEN RETURN 
ORD -evi (ORDSUO:* ) : Oi:n'0 i:;tCL 

Esempio pratico: Sequenza di operazioni reiative ad un ordine 

Quando giunge un nuovo ordine, questo deve essere inserito neiia iista degii ordini 
di quei determinato cliente: deve quindi essere 'concatenato’ con gli ordini preceden¬ 
ti. Esplicitiamo i passi necessari per eseguire questa operazione. 

Si esegue una ricerca sequenziale nel file CLIENTI per controllare se l’ordine è re¬ 
lativo ad un vecchio ciiente oppure ad uno nuovo. Questa operazione viene effettuata 
mediante un sottoprogramma che, ricevuto ii nominativo del cliente, ne ricerchi ii 
corrispondente record nei file CLIENTI e nel caso questo non esista crei automatica- 
mente un nuovo record (ciiente nuovo) e inizializzi ii relativo campo PQRD$ con ’*’. 
Come si vede questo sottoprogramma permette di aggiornare unicamente il file 
CLIENTI. 

Il sottoprogramma sopra citato, che chiameremo CLIENTE, chiama a sua volta un 
altro sottoprogramma, che chiameremo CAL-ADRNOM, incaricato di ricercare il re¬ 
cord relativo al nominativo richiesto (se tale record è presente nel file) oppure un re¬ 
cord vuoto (cliente nuovo). Nel fare ciò questo secondo sottoprogramma posiziona 
un indicatore Q a 1 se il cliente è stato trovato oppure a 2 se il cliente è nuovo. Il valo¬ 
re di questo indicatore viene poi testato dal sottoprogramma CLIENTE per sapere co¬ 
me deve utilizzare i dati relativi al cliente in esame. 

Alla fine del sottoprogramma CLIENTE comunque i dati relativi a quel cliente sa¬ 
ranno memorizzati nel file. Per comunicare che non vi sono pili dati da trasmettere 
l’utente dovrà rispondere alla domanda "Cliente?” con un CR. In questo caso il sotto¬ 
programma CLIENTE posizionerà un indicatore Q a 2 e ripasserà il controllo al pro¬ 
gramma principale. 

Avendo strutturato il sottoprogramma in questo modo, la routine per aggiungere un 
nuovo cliente all’elenco si riduce alle istruzioni: 

CREACLIENT GOSUB CLIENTE:ON Q GQTQ CREACLIENT,FINE 

Sono stati poi previsti un sottoprogramma per l’aggiornamento dei dati relativi ad 
un cliente ed un altro sottoprogramma, detto CAL-ADRQRD che ha il compito di tro¬ 
vare nel file ORDINI un record vuoto in cui registrare un nuovo ordine. Se per caso 
l’ordine in esame è già stato registrato in precedenza il sottoprogramma CAL- 
ADRQRD posiziona un indicatore ad 1 in modo da evitare una registrazione super¬ 
flua. 

È stato previsto infine l’uso di un file ARTICOLI e di un sottoprogramma che con¬ 
trolli per ogni ordine se gli articoli richiesti sono disponibili, e se si tratta di un nuovo 
articolo ne generi automaticamente il record relativo. 
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Questo sottoprogramma può essere usato anche per aggiungere direttamente dei 
nuovi articoli nell'apposito file. 

Osserviamo per concludere che prima di effettuare una registrazione in un file vie¬ 
ne chiesta all'utente una conferma sui dati da registrare. 

iieSVIONE FU E ORDINI 


INIZIO ; INPUT"TIPO OPERAZIONE "sMODE* 

IF MODE*="ordìNE" TUEN GOTO ORDINE 
IF MOl,iE*=" THEN. 


I 


I 



GOVOU ■RiJGPAMMA PER I^ILl:: 

RCA 

V 



NEL FILE "CLIENTI" 


GOTO INIZIO 


ALLA USCITA: 0=1 OK 





0=2 FINE 


ORl'INE;GOSl.Ur: ClTr-NTE:CiN 0 

GOTO 1,INIZIO 






CLlENTE:INPUT"NONE":CLlENT* 

1 : INPUT"ORliINE" ; ORD* 


IF CLIENT*="" THEN 

IF ordì-" 

THEN C.or 

0 ORDINE 

0= 2: re: T I.IRN 


GOSUB CAI - 

AIiRURD: ON 

0 GOTO 2,3 

i:iO:5riB i:;AL -ADRNijM 




ON 0 GOTO 1,2 


2:PR1NT"G1A' 

REOISTRATO": GOTO 1 



3;INPUT"DA(I 

S •' s. 

, , 

2:INPUT"N? ";RP» 





IF RP*<:>"Sr' THEN 




GOTO CLlENTE 





INPUT DATI _ 



r* 4 : GOSI IB ART I COL I : ON 0 

GOTO 5,6 

: : 

UJ 

:z 


5:INPUT 

DATI. . 



Om 





l.SET PORD* = "»" 



• 



PUT. 

ul 






fN 

6: 1NPUT"CIK?" 

:RP* 


1:0=1:RETURN 

? 


ir THEN GOTO ORDINE 


puntatori/'lsft 

■jet 




REI' 


ORDSI ICC*=PORD* 

ì:m:ird*=mki« ( adroro > 

PNOH l.=MK I » < ADRNOM ) 


PUT FU. ENOM,ADRNOM 
PUT fu FORD,ADRORD 


GOTO ORDINE 


RICORDIAMO CHE l.-'INDICATORE Q VIENE 
TESTATO Al l 'USCITA DEI SOT lOPROGRAMMI 
MEDIANTE UN'ISVRUZIONE DEL TIPO 

ON Q GOTO XX.YY,... 


[SOTTOPROGRAMMA PER RICERCA 
DEGLI ARTI COI, I 


ALLA USCITA: 0=1 OK 
__Q=S FINE 


ARTICOLI:INPUT ART* 

IF .ARr*="" riIEN 
0=2:RETURN 

GOSUB CAL-ADRAR 
ON Q GOTO 1,2 

2: INPU T"NUOVO?" ; R* 
IF R*<>"Sr' THEN 
GOTO ARTICOLI 

INPUT ..DATI,. 

1:0=1:RETURN 
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Eliminazione di un elemento In una lista 


Consideriamo ii fiie ORDiNI ed immaginiamo che un ciiente disdica un ordine dalia 
lista di quelli relativi al cliente in questione. Per far ciò è sufficiente modificare il pun¬ 
tatore ORDSUCC$ contenuto nel record relativo all'ordine che precede nella lista 
quello da eliminare (vedi figura 6). Poiché gli elementi della lista non sono necessa¬ 
riamente contigui nel file ORDINI, sarà necessario ripercorrere, grazie ai puntatori, 
tutta la lista per ritrovare l'elemento che 'punta' a quello da eliminare. Il posiziona¬ 
mento all'inizio della lista viene ottenuto tramite il puntatore PORD$ contenuto nel re¬ 
cord relativo al cliente (file CLIENTI). Osserviamo che tale record è facilmente rin¬ 
tracciabile grazie al puntatore PNOM$. 


POR 

o 

I ROSSI 

XXX 

[!£l 


ORDSUP. 


FILE CLIENTI 


ELIMINAZIONE ORDINE 



PNOM$ 

ORDINE 

SOPPRESSO 


SLIpsSTOP si IRASMerrE L"INDIRt/./.0 

DELL"OROINE DA SOPPRIMERE 

ADRNOM =i:VI (PMOM* ) 

SLIP OE I FIL ENOMI, ADRNOM 

IF PLIRDS"» ’• rHEN PRINr"LISTA VUOTA" : Q=3:RETURN 
IF evi (PORD*)= ORDSUP THEN OET F ILEORDINI, CVI (PORI)» ) ; 

LSET PORD»^=OPDSUCC:S! PUT F U.ENOMI, ADRNiOM: Q -1 : RETURN 
'ELIMINAZIONE PRIMO ORDINE' 

X=c:vi (F>ORD*) 'INDIRIZZO PRIMO ORDINE' 


CICL GEI FILEORDINI,X 

IF );:VI (ORDSUCeS)ORDSUP THEN OET EH EORniMI , E VI .T);: n : 5 : 
Y»=ORriSUCC*:GET FILFORDINI, XiLSET ORDSeSC*=Y*s 
PUT F11 EORD I NI,X ;Q=11 RE TURN 

IF i:iRDSUi::C* = "s* " THEN FRINr"ORDINE NON REGISTRATO" : I3==2: RETURN 
X =ev I ( );)RDSUCC« ) : 00 TO ICL 


Qualora venga richiesta l’eliminazione di un ordine non esistente viene segnalato 
errore. 

Una lista ‘distrutta’ può essere ricostruita andando a ricercare nel file ORDINI tutti 
i records in cui il puntatore PNOM$ ha il medesimo valore. 
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Osserviamo Infine che le operazioni necessarie per riorganizzare una lista risulta¬ 
no notevolmente agevolate se si concatena la lista stessa nei due sensi (si può ad e- 
sempio individuare immediatamente l’elemento che precede un elemento dato). 

Un altro tipo di organizzazione per il file CLIENTI è quello che consiste nel fissare 
all’inizio il numero massimo di ordini che possono comporre la lista di un cliente (nel 
nostro esempio 5). ed associare ad ogni ’cliente’ un numero di puntatori pari al nu¬ 
mero massimo di ordini accettabile (figura 7). Con questo tipo di organizzazione si 
semplifica notevolmente la gestione dei puntatori e si facilitano pertanto le operazioni 
di inserimento e cancellazione. 


NMAX 



AGGIUNTA DI UN ORDINE 


Inserimento nuovo ordine 

Per effettuare questo tipo di operazione devono essere presenti in memoria cen¬ 
trale i records di indirizzo ADRNOM ed ADRORD 


IN3 


[NG:STOP 


ri;iR 1 = 1 rei nmax-i rici~ri:.a pi.intatore librrci' 

IF evi <PCiF{|:i4i<I ) ) = 0 THFN 

I .SE r PORDt ( I ) =MK I « ( ADRFIRCI ) : I SE T PMOM* I * ( AORNOM ) : 

PUT FIL ECL TENTI, ADRNiJlT : PUÌ F I LFCiRD INI, AI iRuR! i : Q= 1 : 
RETURN 


MEXT I 

PRI NT " NON C ' E ' POSTO " : Gl-2 : RE TURN 
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Soppressione ordine 

Supponendo noto l’indirizzo deil’ordine da sopprimere, si legge il record del 'clien¬ 
te’ dal file CLIENTI e si azzera il puntatore relativo all’ordine da eliminare. 

GOSUB SUR:STOP 

SUF' ADF<NOM=^C:VI (PNOM$):eET FIL ECLIENTI, ADRNOfI 

POR 1=1 rO NMAX-1 

IF evi (PORi;i« ( I ) )=ORCiSUP THEN 

FOR V=I TO NMAX-1:LSET PORD»<I)-PORDS(IH):NEXT V; 
PUT F11. ECLIENTI, ADRNOM ; <3= 1 : RE I URN 


NEXT I 

PRINT"ORDINE NON REGISTRATO" : Q=S:: RETURN 


Se si desidera mantenere un ordinamento tra i vari ordini ricevuti è necessario 
"aggiustare” i puntatori in modo da non lasciare "buchi” aM’interno deila lista (figura 
seguente) 


XX 




X 


0 


XX 


E 

0 

0 

0 

0 


© 


PRIMA 


DOPO 


SOPPRESSIONE DI UN ORDINE 


Controllo sul puntatori (figura 9) 


puntatore reciproco 



Facciamo ora riferimento all’esempio illustrato all’inizio del presente capitolo e 
consideriamo i due file CORSI e STUDENTI. 

Quando uno studente viene iscritto ad un corso vengono generati due puntatori: 

1 nel file CORSI -• studente 

1 nel file STUDENTI ——. corso 
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Tramite questi puntatori è possibile ottenere facilmente un elenco di tutti gli stu¬ 
denti iscritti ad un corso ed un elenco dei corsi seguiti da uno studente. 

Acquisiti i dati relativi ad un'iscrizione, si fanno due operazioni di scrittura: una sul 
file CORSI ed una sul file STUDENTI. 


PUT FILECORSI.ADRCORS 
PUT FILESTUD.ADRSTUD 


-INTERRUZIONE 


Se tra le due operazioni di scrittura si ha un’interruzione accidentale del program¬ 
ma, viene generato solo il primo puntatore. Per ridurre al massimo tale rischio con¬ 
viene disporre queste due istruzioni una di seguito all’altra. Inoltre, al fine di evitare 
che, malgrado tutto, esistano delle incongruenze tra le varie liste di puntatori, convie¬ 
ne accertare, ad ogni accesso ad un record, che per ogni puntatore esista nell’altro 
file il puntatore inverso. Si tratta in pratica di andare ad esplorare il secondo file tra¬ 
mite il primo puntatore per vedere se nel record 'puntato’ esiste un puntatore che ri¬ 
chiama il record 'puntante'. 

Se ad esempio siamo posizionati sul file CORSI e vogliamo leggere nel file STU¬ 
DENTI i records relativi ai partecipanti ad un certo corso, dovremo verificare che in 
ognuno di questi records esista un puntatore che punta al record (del file CORSI) re¬ 
lativo al corso in oggetto. 

OOSUB VERIF:STOP 

VERIF FOR 1=1 TO NMXPCORS 

IF evi (PCORSSd ) )=ADRC:ORS THEN Q=l;RETURN 

NEXT I 

PRINT"NCiN ESISTE PUNTATORE INVERSO":0=2:RETURN 


Se vi è incongruenza tra i puntatori, viene segnalata l'anomalia all’operatore. Si po¬ 
trebbe anche predisporre una routine di autocorrezione per l’aggiunta del puntatore 
mancante. 

L’uso dei puntatori reciproci permette inoltre di ricostruire una parte di record an¬ 
data incidentalmente persa (purché relativa ai soli puntatori). 


Protezione contro la distruzione fisica dal flles 

(figura 10) 

Riportiamo una regola poco conosciuta. 

Lavorando In reai-timo non si garantisce completamente la protezione di un file 
neppure effettuando delle operazioni di ‘save' periodico su disco ad intervalli piutto- 


126 



sto brevi. Infatti in caso di interruzione vengono comunque perse tutte le modifiche 
effettuate nel file dopo l'ultimo ‘save'. Conviene pertanto mantenere una traccia di 
queste modifiche (su un altro disco). 

Con questo accorgimento se un file viene distrutto può essere rigenerato utilizzan¬ 
do l'ultima versione 'salvata' e la traccia delle modifiche non ancora registrate. 

Quando anche il file delle modifiche raggiunge una certa mole, converrà effettuare 
un aggiornamento di tutti i files su disco in modo da poter riinizializzare il file delle 
modifiche. 

Nota: Osserviamo che l'aggiornamento tramite il file delle modifiche è molto più velo¬ 
ce di quello ottenuto tramite un 'save' completo del file principale. 


N. RECORD MODIFICATO 



t 


Questo file 
é rimesso 
a zero dopo 
ogni 'save' 
completo 
del file 
principale 


PROTEZIONE CONTRO LA DISTRUZIONE FISICA 


ESEMPIO DI DATA BASE: GESTIONE DEGLI ORDINI CLIENTI/FORNITORI 

Questo data base (illustrato In figura 11) deve permettere la gestione dell'archivio 
ordini clienti/fornitori. Si vogliono inoltre ricavare dai dati relativi al magazzino delle 
previsioni di massima per un certo periodo di tempo. 

Quando deve essere accettato l'ordine di un cliente è necessario sapere se gli arti¬ 
coli richiesti saranno disponibili entro una certa data. Per ottenere queste informazio¬ 
ni bisogna esaminare per ogni articolo: 


— la giacenza attuale 

— gli ordini dei clienti 

— gli ordini per i fornitori 


127 





ORDINI • EVASIONI 



EVASIONI C/F 





L’aggiornamento dei dati in seguito all’evasione, anche parziale, di un ordine deve 
avvenire in tempo reale. 

Dobbiamo pertanto organizzare il data base mediante dei files (clienti, ordini, con¬ 
segne, articoli). Accedendo alla base tramite, ad esempio, i dati relativi ad una con¬ 
segna, si potrà risalire, tramite appositi puntatori, all’indice ed al cliente a cui tale 
consegna si riferisce. 

La base dei dati viene generata dinamicamente: ad esempio, al momento dell’ac¬ 
cettazione di un ordine (da parte di un fornitore), se in esso è contenuto un nuovo ar¬ 
ticolo si potrà aggiornare il file ARTICOLI tramite un apposito sottoprogramma. La 
medesima cosa può essere fatta per il file CLIENTI ed il file FORNITORI. 

Gestione degli ordini dei clienti 

Il programma da noi sviluppato prevede la possibilità di accedere ai files solo tra¬ 
mite il nome del cliente e di gestire successivamente dei puntatori che concatenino 
gli ordini del cliente stesso. Pertanto, poiché non è previsto l’accesso al data base 
tramite il numero di un ordine, se si desiderasse poter effettuare anche questo tipo di 
operazione occorrerebbe modificare il programma in tale senso. 


10 PRINT "DATA BASE" ; F'RINT 
20 ' 

30' GESTIONE ORDINI CLIENTI 
50 

60 OPEN "R”,#1,"CLIENTI": OPEN "R",»2,"ORDINI" 

70 FIELD #1,20 AS NS,45 AS INDIR*,20 AS TL*,2 AS FORD* 

00 PIEI .D #2,12 AS CORD*,50 A3 DESC*, 2 A3 ORD3I.ICC*,2 AS PNOM* 

90' 

100 DIM NON*(200),INDE X < 200) 

no GOSUB SCO 'GENERAZIONE TABeLA INDICE/CLIENTE' 

niO' 

130 FRINÌ :INPUT"OPERAZIONE(NUOVO,LISTA,FINE )"; MODE* 

140 IF l•1Ol:lE*--"NU0V0" THEN 200 'NUOVO ORDINE' 

150 IF M0DE*="LI3TA" THEN 710 'LISTA ORDINI' 

lóO IF MODE* = "F INE" THEN CLOSE #1,#2:STOP 
170 00HI 130 

190' NUOVO ORDINE 

200 GOSUB :3G0:0N Q GOTO 210,130 'RICERCA CLIENTE' 

210 PRINT:FRINT N*:PRINT:NORD=LOF(2):PRINT"N.ORDINE ";NORD 

220 GET #.J,NORD 

230^ 

240 PRINT:PRINT"ACQUl3IZIONE ORDINE":PRINT 

250 PRINT:INPUT'CODICE ORDINE "5X»:LSET CORD*=X* 

260'' 

270' .ACrjUISIZIONE ALTRI DATI RELATIVI AL.L"ORDINE, 

280' E VISUALIZZAZIONE DEL RECORD COMPLETATO . 

290' 

;300 PRINT:tNPUT"TUTTO 0K?"5R*:IF R*<>"SI" THEN GOTO 200 
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310 

320 

330' 

340 

350 

360' 

370' 

380 

390 

400' 

410 

420' 

430 

440 

450 

460 

470-' 

480 

490 

500' 

510 

520 

530 

560' 

570 

580 

590 

610 

620' 

630' 

640' 

650' 

700' 

710 

720 

730 

740' 

770 

780 

790' 

800 

810 

820 

330' 

340 

350 

360 

870 

330 

890 

900 

910 

920' 

930 

940' 

950' 


LSer CìKi;iSUC:C*=PORCi*:LSET PN0M*=MKI*(ADF<N0M) 'GENERAZIONE DEI 
LSEI l■0RD^-MKI«<N0RD) PUNTATORI 

(CONCATENAZIONE) 

PUT l*l,ADRNOM:PUT #2,NORD 
GOTO 200 


RICERCA/GENEFìAZ IONE CLIENTE 

PRINTs TNPUr”CLIENTE "jX* 

IF X*="" THEN Q=2:RETURN 'FINE OPERAZIONE' 


L=LF:N(X*) 


FOR 1=1 TO 200 

IF X$-=LEFT*(NOM$(I ),L) THEN ADRNOM=INDEX < I ) : OET #1, INDEX (I): 
0=1:RETURN 

IF NOH«(I)="” THEN 430 
NEXT I 


PRINT SPRINT X*; : INPUT "NUOVO CLIENTE'7 ":RP<i 
IF RP$<>"SI" THEN 380 

ADRNOM=LOF(1):GET #1,ADRNOM:LGET N$=X«:PRINT 

'AGGIUNTA ALLA FINE DEL FILE' 

INPUT"TNDIRIZZO ":X»;LSET INDIR*=X» 'ACQUISIZIONE DATI' 
INPUT "TELEFONO •’;XF:LSET TL*=X» 

LSET PORD*=”*" 'INIZIALIZZAZIONE PUNT. 

PUT #1,ADRNOM 

NOM*(PI ) =N«: INDEX (PI ) -ADRNOM:PI =PI H Ai:ì 01 ORNAMENTO TA13EI.LA 
Q=lsRETURN 


GOSUB 380sON 0 GOTO 720,130 'LISTA ORDINI 

PRINTSPRINT N«SPRINT DI UN CLIENTE 

PRINT TAB(20) INDIR* 


PRINTsIF PORD*="»".THEN GOTO 170 'NESSUN ORDINE 

ORD=CVI(PORD*) 


IjET #2,0RDsPRINT"0RDINE "sCORD*s" 
IF ORDSUCC*="«" THEN GOTO 710 
0RD=i3VI (ORDSUCC* ) : GOTO 300 


"s DESC* 

'ULTIMO ORDINE 
'ORDINE SUCCESSIVO 


'GENERAZIONE TABELLA NOME/INDICE 

PI=1 

'PIs PUNTATORE ALLA TABELLA 

FOR 1=1 TO L0F(1> 

GET #1,1 'LETTURA SEQUENZIALE DEL FILE 

IF ASC(N*)=0 THEN 910 'RECORD VUOTO 
NOM*(PI ) =N*s INDEX (PI > = I:PI=PH-1 
NEXT I 

RETURN 
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APPENDICE I 


RICHIAMI SUL BASIC 


Attivazione del Basic 

L’attivazione deil’interprete Basic viene ottenuta tramite un comando da consolle: 
BASIC (return per TRS80 e DTC MICROFILE 

0 

MBASIC (return) per BASIC MICROSOFT 5. 

Dopo l’inizializzazione il sistema BASIC risponde: 

OK (OK permette di assicurarsi che si è sotto il controllo del BASIC) 

(Sul TRS80 il sistema risponde READY) 

L'utente può a questo punto utilizzare il BASIC per: 

- fare direttamente dei calcoli (Direct mode) 

— scrivere dei programmi (Program mode) 


Direct Mode 
Battendo sulla tastiera 

PRINT4 (return) 

il calcolatore visualizza il numero 4 

Introducendo successivamente 

A = 4 (return) 

B,=_5 (return) 
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il calcolatore assegna alle variabili A e B i valori 4 e 5. 

Se a questo punto battiamo 

PRINT A+B (return) 

il calcolatore visualizza 9 (somma dei valori contenuti in A e B) 


Program mode 

Scriviamo ora il seguente programma: 

10 A=4 
20 B=5 

30 PRINT A+B 

In esso 10, 20, 30 rappresentano dei numeri di istruzione. 

Quando chiediamo al calcolatore di eseguire il programma, tramite il comando 
RUN’, le istruzioni vengono eseguite l’una dopo l'altra secondo l'ordine di numerazio¬ 
ne. 


RUN (return) 

9 viene visualizzato durante l'esecuzione 

Un programma può essere rieseguito tutte le volte che si desidera. 

Per registrare su disco il programma si userà il comando 

SAVE "PIPPO” (ove PIPPO è il NOME assegnato al PROGRAMMA) 

Per ricaricare il programma in memoria centrale (per poterlo eseguire) si ricorrerà 
al comando: 

LOAD "PIPPO” 

Dopo l'esecuzione di un programma si possono utilizzare i valori assegnati alle va¬ 
riabili passando in direct mode. 

Se ad esempio, facendo riferimento al programma precedente, si batterà alla fine 
dell'esecuzione, 

PRINT A*b 

il calcolatore visualizzerà il numero 20. 
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Somma di due numeri 

Generalizzando il programma precedente, immaginiamo di voler fare la somma di 
due numeri qualsiasi: in questo caso il programma dovrà chiedere all’operatore, du¬ 
rante l’esecuzione, il valore dei due numeri da addizionare. 

Quando viene eseguita l’istruzione 

10 INPUT “PRIMO NUMERO’’;A 

viene visualizzato il messaggio “PRIMO NUMERO” da parte del programma che ri¬ 
mane poi in attesa dell’inserimento del dato. 

L’istruzione 20 viene eseguita in modo anaiogo. 

L’istruzione 

30 PRINT “SOMMA=’’:A+B 

permette di visualizzare il messaggio SOMMA=seguito dal valore di A+B 
Infine i’istruzione 

40 GOTO 10 (vai all’istruzione 10) 

provoca nel programma un salto all’istruzione 10 che verrà nuovamente eseguita. 

Tutto ciò che in un programma compare tra apici (’) e segue su una riga la parola 
REM (REMARK) va considerato come commento. 
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LOAD "EXr* <---COMANDO PER CARICARE IL PROGRAMMA 

OK 

LIST <---COMANDO PER VISUALIZZARE IL LISTINO 


'ACQUISIZIONE PRIMO VALORE' 
'ACQUISIZIONE SECONDO VALORE' 

'VISUALIZ ZAZIONE DELLA SOMMA 
SALTO ALL”ISTRUZIONE IO' 

RLIN <--- -RICHIESTA DI ESECUZIONE 

PRIMO NUMERO 60 
SECONDO NUMERO 40 
SOMMA = 100 
PRIMO NUMERO 70 
SECONDO NUMERO 50 
SOMMA = 120 

PRIMO NUMERO <-PER INTERROMPERE IL PROGRAMMA BATTERE IL 

TASTO BREAK OPPURE CONTROL C 

! i 


/ RICEVI A / 10 


/ RICEVI B / 20 


/ STAMPA A■^B / 30 


FLOW CHART 


Somma di 10 numeri 

(concetto di contatore) 

Per sommare più numeri (ad esempio 10) si potrebbe procedere riscrivendo per 
10 volte le stesse istruzioni, come illustrato nell’esempio precedente. 


É però più conveniente utilizzare una serie di istruzioni ‘cicliche’ definendo un 
‘contatore’ che permetta di contare il numero di volte che viene ripetuta la serie di i- 
struzioni. 


Per ‘uscire’ dal ciclo si utilizzerà un test sul valore assunto dal contatore in modo 
che il ciclo termini quando il contatore assume il valore 10. 


2 REM 

SOMMA DI 2 NUMERI 

4 REM 

il 

li 

ii 

il 

li 

il 

ii 

il 

ii 

6' 


10 r» 

INPUT"PRIMO NUMERO " 

20 1 

INPUT"SECONDO NUMERO 

30 

PRINT "SOMMA = “;A4-B 

40 *- 

GOTO 10 
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L’istruzione: 90 iF CONTATORE=10 THEN 200 (se CONTATORE=10 salta aita 

istruzione 200) 

fa si che quando il contatore assume il valore 10 il programma prosegua con l’istru¬ 
zione 200. Se invece il valore del CONTATORE è diverso da 10 il programma prose¬ 
gue con l’esecuzione dell’istruzione 100. 

Nota: nell’esempio viene presentato il comando ’TRON’ (Trace On) molto utile in fase 
di messa a punto. Tramite tale comando è possibile verificare come in realtà ’gira’ il 
programma. Se si vuole disattivare l’effetto di TRON basta usare il comando ’TROFF’. 


10' 

20' 

SOMMA DI IO NUMERI 

30' 


40 

50- 

60 ' 

CONTATORE=1 

T0TALE=0 

1*70 

SO 

INPUT"NUMERO "|X 

TOTAl.E = rOTALE+X 

90 

100 

^110 

IF C0NTAT0RE>=10 THEN 200 
CONTATORE SCONTATORE 1 
GOTO 70 

122:—. 
♦ 200 

PRINT“TOTALE = "»TOTALE 


OK 

RUN 


'CONTROLLO SUL CONTATORE' 
RITORNO ALL"INIZIO DEL CICLO 
'STAMPA DEL LA SOMMA' 


NUMERO 4 
NUMERO 6 
NUMERO 7 
NUMERO 5 
NUMERO 3 
NUMERO 5 
NUMERO 9 
NUMERO 3 
NUMERO 5 
NUMERO 6 
TOTALE = 53 


OK 

TRON 

OK 


<- TRACE ON 


t 10K;;03C30K40]C50IC60K 70INUMERO 4 
t80]C903C100]Clt03C70]NUMERO 6 

I i 



C80:C903C1001tl103C703NUMER0 6 
C SO 3 C 90 3 C 200 3 TOTAL .E = 53 

OK 
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Nota: Sul TRS80 cambiare TOTALE con SOMMA 



Vettori 


Utilizzando il metodo precedente per calcolare la somma di 10 numeri, il valore di 
tali numeri non viene mantenuto in memoria e pertanto non è possibiie effettuare su 
di essi altre elaborazioni. Per facilitare i’eiaborazione su un numero considerevole di 
dati è conveniente memorizzarii/sotto forma di vettore. 


Un vettore non è altro che un Insieme di eiementi ordinati a cui si può accedere nei 
seguente modo: 


- se si vuoie assegnare ii valore 15 al terzo elemento del vettore A si utilizza l’istru¬ 
zione 


A(3)=15 
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Generalizzando il discorso, si può dire che l’accesso ad un vettore viene realizzato 
tramite un indice posizionaie (I). 


VETTORE A 



Ad ) : 

10 

! 


A ( 2 ) : 

20 

■ 


A ( 3 ) : 

15 

•• 


A(4) : 

12 

• 

to 

1 = 1 



r» 20 

INPUT"NUMERO 

’’! X 


25 

Ad )=X 



30 

IP 1=5 THEN 

100 


40 

1 = 1 + 1 



50 

GOTO 30 



100' 

PROrSECLIZIONE 

PROGRAMMA 


La prima volta I ha il valore 1 e l’istruzione 25 è equivalente a: 


A(1^X 

Con questa istruzione si assegna al primo eiemento del vettore A il valore di X. 

Giunti all’istruzione 40 l’indice I viene incrementato di 1, assumendo cosi il valore 
2. Nel successivo passaggio l’istruzione 25 sarà quindi equivalente a: 


A(2)=X 


ecc. 


Viene ora presentato come esempio il programma per calcolare la somma degli e- 
lementi di un vettore A. 
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2' SOMMA 0031.1 ELEMENTI TU UN VET TORE 


6' 

3' 

IO 

r»20 

30 

L 40 

1=1 

INPUT"NUMERO ";A<I) 

IF 1=5 THEN DOTO 100 •) 

1 = 1 + 1:0010 20 _ y 

^Sloo 

1 = 1 

r»110 

SOMMA=SOMMA+A( I ) 

120 

IF 1=5 THl N GOTO 300 », 

L 130 

I = lH!OurO 110 ^ 

lAO-*.._ 

£*3Ó0 

PRINr"SOMMA = SOMMA 

310 

PRINT"MEDIA =-"!SOMMA/5 

320 

STOP 

OK 


RUN 


NUMERO 

4 

NUMERO 

8 

NUMERO 

7 

NUMERO 

ó 

NUMERO 

2 

SOMMA ^ 

= 27 

MEDIA = 

= 5.4 

OK 


PRINT A(3),A<5) < - 

7 

2 


INIZIALIZZA7IONE VET(ORE 


- DIRECT MODE 


OK 

PRINT A<3)+A(5) <- DIRECT MODE 

9 

OK 

PRINT 30MMA/5 <- - DIRECT MODE 

5.4 

OK 
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VETTORE A \ 

A(1) 

4 


A (2) 

8 


A(3) 

7 


A (4) 

6 


A(5) 

2 

j 


DIMENSIONE 5 



Cfcll POR 

Il programma precedente poteva essere scritto anche nel modo seguente: 


IO 


C 20 
25 
30 


F-OR I=t TO 5 

INPUT ■■ NUMERO" JX 
A(n=X 
NEXT I 


•PER I CHE VA DA 1 A 5 

'1=1+1 E VAI A 20 SE I<=5 


Le due scritture sono equivalenti, ma questa seconda forma è più concisa e facilita 
la comprensione del programma. 
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In questo ciclo FOR tutte le istruzioni comprese tra FOR e NEXT vengono eseguite 

una prima volta con 1=1 e poi ripetute con l=2,3.finché I assume il valore limite 

specificato (nel nostro caso 5). A questo punto il programma prosegue con l'esecu¬ 
zione deH’istruzione successiva al NEXT. 


In 'uscita' dal ciclo, I assume il valore limite + 1 (nei nostro caso i=6). 


Altri esempi di ciclo FOR 

Tavola dei quadrati 


IO 



RUN 


FOR 1=1 TO 10 
PRINT I,!»! 
NEXT I 


1 


1 

4 


3 9 

4 16 

5 25 


10 


100 


Tabella di moltiplicazione 


10 

20 ' 



60' 

70 


INPUT "RELATIVA A QUALE VALORE? ";X7. 

FOR I'/.= l TO 10 

PRINT xy.; IV.! " = (X7.+ iy.) 

NEXT I 

OOTO 10 


RUN 

RELATIVA A QUAI.E VALORE? 7 

7«1=7 

7*2=14 


7*10=70 

RELATIVA A QUALE VALORE? 


BREAK IN 10 
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Ordinamento degli elementi di un vettore 

Affrontiamo ora il problema relativo aH’ordinamento degli elementi di un vettore 
presentando una soluzione classica; 


. si confronta il secondo elemento con il primo; 

- se è maggiore l’ordine non viene alterato; 

- se è minore si effettua un’inversione in modo da avere i due elementi ordinati; 

110 IF A(l+1) < A(l) THEN SWAP A{l+1),A{l);INVERSIONE=1 
! ! ! 

(Se A(l+1) < A(l) scambiali tra loro e poni IN\/ERSIONE=1) 


Si incrementa di 1 l’indice I in modo da effettuare il confronto tra il secondo ed il 
terzo elemento e, se necessario, si scambiano tra loro 

e cosi via 


Giunti così alla fine del vettore si controlla il valore della variabile INVERSIONE; 

- se non vi sono stati scambi si è giunti alla fine della procedura (il vettore è ordina¬ 
to): 

— se invece vi è stato anche un solo scambio ci si riposiziona all’inizio del vettore per 
effettuare una nuova serie di confronti. 

Alla fine della prima ‘passata’ l’elemento di valore maggiore si troverà sicuramente 
all’ultimo posto nel vettore. 

Alla fine della seconda ‘passata’ l’elemento maggiore tra i rimanenti occuperà il 
penultimo posto. 


Operando in questo modo, dopo diversi cicli (al più N) si otterrà l’ordinamento 
completo del vettore. 


Il metodo utilizzato nell’esempio potrebbe essere migliorato perchè, per quanto 
sopra detto, si potrebbe ridurre di 1, ad ogni passaggio, il numero degli elementi da 
confrontare tra loro. 

La variabile INVERSIONE viene utilizzata solo come variabile di controllo sul nu¬ 
mero di scambi effettuati in una ‘passata’. 
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Qualora il BASIC implementato sul vostro calcolatore non ammetta l’istruzione 
SWAP, potrete realizzare lo scambio tra due elementi nei modo seguente: 


X=A(I):A(I)=A(I+1):A(I+1)=X 


Osservazione: Il metodo da noi proposto (ripple sort) ha il vantaggio di essere con- 
cettuaimente molto semplice e facile da programmare, ma in pratica viene raramen¬ 
te utilizzato, specie per vettori di notevoli dimensioni, in quanto è tra i più lenti che si 
conoscano. 


IO REM 
20 ' 

30' 

40 

50 

60 

70' -- 
80 
100 
110 
120 
130' 
140 
150 

160' - 
170 
ISO 
190 
200 


RUN 

NUMERO: 6 
NUMERO: 8 
NUMERO: 4 
NUMERO: 9 
NUMERO: 2 

RISULTATO 

1 
2 

3 

4 

5 

OK 

SE L'ISTRU7U0NE SWAP NON E' AMMESSA SOSTITUIRLA CON: 
X=A(I):A(I)=A(I-H ):A<I + 1)=X 


2 

4 

6 

3 

9 


ORDINAMENTO DEI VALORI CONTENUri IN UN VE 1 TORE 


POR 1=1 TO 5 'ACQUISIZIONE DATI' 

INPUT "NUMERO: "sACD 
NEXT I 


INVERSI0NE=O 'ORDINAMENTO' 

POR 1=1 ro 4 

IP A(I+1)<A<I) THEN SWAP A(I+1),A(I):1NVERSI0NE=1 
NEXT I 

IP INVERSIONE»! THEN GOTO SO 'NON SI E" OTTENUTO UN 

'ORDINAMENTO TOTALE' 


PRINT"RISULTATO":PRINT 'VISUALIZZAZIONE VETTORE 

'ORDINATO' 

POR I-l TO 5 

PRINT I,A(I) 

NEXT I 
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Nell’esempio precedente si è considerato un vettore di 5 elementi; per adeguare il 
programma ad un vettore di NB elementi occorrerà aggiungere le seguenti istruzioni: 


20 INPUT"NUMERO DI ELEMENTI " : NB 

30 DIM A(NB) 
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L’istruzione 30 permette di riservare in memoria centraie un’area sufficiente per 
contenere un vettore di NB elementi. Questa istruzione non è presente nel program¬ 
ma precedente in quanto per vettori con un numero di elementi inferiore a 10 il di¬ 
mensionamento viene fatto in modo automatico. 

Nel programma inoltre va sostituito il parametro 5 con NB, che rappresenta il ge¬ 
nerico numero di elementi. Così, ad esempio, il ciclo di lettura dovrà essere trasfor¬ 
mato nel modo seguente; 


FCiR 1 = 1 TO NB 

INPUT"NUMERO "(Ad) 
NEXT I 


Ordinamento di nomi 

Nell’esempio precedente si è fatto riferimento a variabili di tipo numerico. In gene¬ 
rale, però, specie in ambito gestionale, si deve affrontare il problema relativo all’ordi¬ 
namento alfabetico di stringhe di caratteri (ad esempio i nominativi dei clienti). 

Per distinguere le variabili destinate a contenere stringhe di caratteri (che chiame¬ 
remo d’ora in poi di tipo alfanumerico) da quelle destinate a contenere solo valori nu¬ 
merici si utilizza il carattere speciale $ posto subito dopo il nome della variabile stes¬ 
sa: cosi, se ad esempio il vettore A fosse di tipo alfanumerico, lo si dovrebbe indicare 
con la notazione A$. 

Per confrontare tra loro due stringhe, supposto valido l’ordinamento alfabetico, si 
utilizza lo stesso tipo di istruzione valida per i dati numerici: 

IF A$(l + I) < A$(I)THEN... 

Il programma per l’ordinamento di una serie di nomi si differenzia da quello da noi 
presentato solo nei nomi da assegnare alle variabili (A$ al posto di A). 


10 REM 
20 ' 

30 ' 

32' 

34 

36 

3 &' 

40 

50 

60 

70' - 

30 

90' 


ORBINAMENTO DI NOMI 


INPUT"NUMERO DI ELEMENTI DA ORDINARE "(NB 
DIM A»(NB) 

POR 1=1 TO NB ACQUISIZIONE DATI' 

INPUT"NOME "(ASCI) 

NEXT I 

INVERSICINE=0 ' ORDINAMENTO' 
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100 FCiR 1 = 1 TO NB-1 

no IF A«(I+1><A*<I) THF.N SWAP A* ( I «-l ), A ( I ) i INVI-;r<SIONe = l 

120 NEXT I 

130' 

140 IF INVEF<SI0NE=1 THEN GOTO SO 

150' 

170 PRINT"EI.ENCO ORDINATO":PRINT STAMPA FI ENCO' 

ISO' 

190 FOR 1=1 TO NB 

200 PRINT I,A*<I) 

210 NEXT I 

RUN 

NUMERO DI ELEMENTI DA ORDINARE 6 

NOME ROSSI MARIO 
NOME VERDI GIUSEPPE 
NOME BIANCHI ARTURO 
NOME ESPOSITO SALVATORE 
NOME BELLINI SILVIA 
NOME BELI ANI ANTONIO 

ELENCO ORDINATO 

1 BELLANI ANTONIO 

2 BELLINI SILVIA 

3 BIANCHI ARTURO 

4 ESPOSITO SALVATORE 

5 VERDI GIUSEPPE 


10 ' 

20 ' 

30' 

40' 

50' 

60 ' 

70' 

30' 

90' 

100 ' 

110 ' 

120 ' 

130' 

140' 

150' 

160' 

170' 

ISO' 

190' 

200 ' 

210 ' 

240' 

250 

260' 

270 

280 


ISTOGRAMMA 


VIENE GENERATO, A PARTIRE DA UN VETTORE A, UN VETTORE HIST 
CONTENENTE: 

i:;OME PRIMO ELEMENTO IL NUMERO DI l PRE'SENTI NEL VETTORE A 
COME SECONDO ELEMENTO IL NUMERO DI 2 PRESENTI NEL VETTORE A 


VETTORE A VETTORE HIST 


3 : 

2 : 

3 : 1:2 



: 1 : 4 : 1 : 

DIM A<20),IST(IO) 

FOR 1 = 1 TO 20 ' INIZIALI7.ZAZI0NE DI A' 

INF'LIT"NUMERO INTERO COMPRESO TRA 1 E 10 ";X 
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290 IF X>10 OR X<1 THEN PRINT "ERRORE:NUMERO NON ACCETTABILE": 

GOTO 280 

300 A<I)=X 

310 NEXT I 

320 ' - 

330 FOR 1=1 TO 20 'GENERAZIONE VETTORE HIST' 

340 X=A(I) 

350 HIST<X)=HIST<X)+1 

360 NEXT 1 

370 ' - 

330 FOR 1=1 TO 10 'STAMPA DELL"ISTOGRAMMA' 

410 LPRINT I: 

420 IF HIST<I)=0 THEN GOTO 430 

430 FOR J=1 TO HISTd) 

450 LPRINT"»"» 'USO DELLA STAMPANTE' 

460 NEXT J 

470' 

480 LPRINT"" 

490 NEXT I 

500 ' - 

510' ESEMPIO 

520' 1 •« 

530' 2 »»» 

540' 3 » 

550' 4 »» 

560' ::::::: 


Consigli pratici (Importante) 

Gli interpreti BASIC (e molto verosimilmente anche il vostro) offrono delle facilita¬ 
zioni per la messa a punto dei programmi, che converrà tener presente. 

- Si può Interrompere un programma mediante un BREAK (o un Control C) ed anda¬ 
re a testare, In 'direct mode', il contenuto delle variabili per controiiare i’EVOLU- 
ZIONE dei loro valori durante l’esecuzione del programma. 

Per esempio: 

PRINT CONTATORE 

Si può poi riprendere l'esecuzione del programma tramite un CONT (CONTINUE). 

Il 'direct mode’, oltre al controllo, permetto anche di modificare direttamente ii va¬ 
lore delle variabili. 

Ad esempio; 

C0NTAT0RE=8 assegna il valore 8 alla variabile CONTATORE 

CONT fa riprendere l’esecuzione 
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L’esecuzione di un programma, dopo un’interruzione, può essere ripresa da un 
qualsiasi punto utilizzando, in 'direct mode’, il comando: 

GOTO XX ove xx rappresenta il numero di iinea da cui si vuoie 

riprendere l’esecuzione. 

Con questo accorgimento si evita, in fase di messa a punto, di dover ripetere sem¬ 
pre anche ia parte di programma già controilata. inoltre utilizzando il comando GOTO 
XX non si ha la riinizializzazione a zero di tutte le variabili, come avviene invece utiliz¬ 
zando ii comando RUN. 

Quasi tutte ie istruzioni, comprese quelie per la gestione dei files, sono utilizzabili 
come comandi in 'direct mode'. 
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APPENDICE II 


MESSAGGI DI ERRORE 
DEL BASIC MICROSOFT 


Se il messaggio di errore non è sufficiente per risalire alla causa che lo ha genera¬ 
to, converrà controllare in ‘direct mode' il contenuto delle variabili per facilitare la 
diagnosi dell’errore. 

Se poi è necessario controllare in modo più completo l’evolvere del programma, 
converrà Inserire nel programma stesso, dislocandoli opportunamente, degli STOP 
che interrompano il programma al momento più opportuno. 

Si può infine ricorrere all’inserimento di alcune istruzioni di ‘stampa’ che permetta¬ 
no di controllare costantemente il contenuto di alcune variabili. (Un PRINT X, ad e- 
sempio, permette di controllare il valore della variabile X). 


L’uso della ‘traccia’ (cfr TRON) è conveniente solo in casi molto complicati, dato 
che fornisce un numero di informazioni spesso troppo elevato. 


Messaggio 


Codice 


Bad file mode 


Bad file number 


Bad file name 


54 


52 


64 


(Errato uso di un file) 

È sfato usato un PUT o un GET per un file 
di tipo sequenziale oppure è stato usato in 
un OPEN un codice diverso da R,0,l 

(Errato numero di file) 

Si vuole eseguire un’operazione su un file 
con un numero di identificazione scono¬ 
sciuto. 

(Errato nome del file) 

Il nome che si vuole assegnare ad un file 
non è accettabile (ad esempio troppi ca¬ 
ratteri). 
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Bad record number 

Can’t contirìue 


Disk full 

Disk I/O errar 

Divisione by zero 
Field overflow 

File aiready exist 

File aiready open 

File not found 


63 (Errato numero di record) 

In un’istruzione PUT o GET viene usato un 
numero di record non compreso tra 1 e 
32767. 

17 (Il programma non può proseguire) 

Si tenta di far riprendere l'esecuzione di 
un programma che 

— o è stato interrotto per un errore 

— 0 è stato modificato dopo l’interruzione 

— o non esiste 

61 (Disco pieno) 

Tutto lo spazio su disco è già occupato. 

57 (Errore di accesso ai disco) 

Questo messaggio viene visualizzato 
quando si richiede un’operazione di in¬ 
put/output su un disco ma il sistema non 
riesce ad accedervi. 

11 (Divisione per zero) 

50 (Campo troppo esteso) 

Si cerca di allocare in un buffer, mediante 
un FIELD, un numero di bytes inferiore a 
quello previsto in fase di apertura del file. 

58 (File già esistente) 

Si vuole assegnare ad un file un nome già 
utilizzato per un altro file. 

55 (File già aperto) 

Si è cercato di aprire in modo sequenziale 
OUTPUT un file già aperto oppure di can¬ 
cellare con un KILL un file ancora aperto. 

53 (File non trovato) 

Si ò fatto riferimento ad un file, inesistente 
in un LOAD, od in un KILL, oppure in un 
OPEN. 
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For without next 

25 

(FOR senza NEXT) 

Non è stato previsto il NEXT di chiusura 
per un ciclo FOR. 

lllegal direct 

12 

(Uso improprio del ‘direct mode') 
L’istruzione battuta non è eseguibile in ‘di¬ 
rect mode'. 

lllegal tunction cali 

5 

(Errato riferimento ad una funzione) 
Viene usato un argomento non accettabile 
per la funzione. 



Es.: - un valore negativo per SOR 

— una lunghezza non compresa tra 0 
e 255 per le funzioni LEFT$, 
MID$, RIGHT$. 

Input past end 

62 

(Superamento della fine del file) 
Un'istruzione INPUT# viene richiesta 
quando non vi sono più elementi da legge¬ 
re (0 su un file vuoto). 

Per evitare questo tipo di errori si può uti¬ 
lizzare la funzione EOF. 

Internai errar 

51 

(Errore interno) 

Si è generato un errore di sistema. 

Line buffer overflow 

23 

(Superamento della capacità del buffer) 
Si cerca di trasmettere un’istruzione for¬ 
mata da più di 255 caratteri. 

Missing operand 

22 

(Operando mancante) 

Un’espressione contiene un operatore 
senza il relativo operando. 

Next without for 

1 

(NEXT senza FOR) 

Viene incontrato un NEXT che non fa rife¬ 
rimento ad alcun FOR. 

No résumé 

19 

(Mancanza di RÉSUMÉ) 

La routine per il trattamento dell’errore 
non contiene l’istruzione RÉSUMÉ. 
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Out of data 


4 


Out of memory 


Out of string space 


Overflow 


Ridimensioned array 


Résumé without error 


Return without gosub 


7 


14 


6 


10 


20 


3 


(Dati finiti) 

Si tenta di eseguire un READ senza che in 
DATA vi siano ancora dei dati da leggere. 

— 0 si è dimenticato un DATA 

— o si è dimenticato un RESTORE 

(Troppa memoria richiesta) 

Non vi è più spazio disponibile in memo¬ 
ria. 

Per proseguire bisogna sopprimere una 
parte del programma oppure sopprimere 
qualche vettore. (ERASE) 

(Richiesta troppo elevata di spazi per le 
stringhe) 

Lo spazio assegnato aile stringhe non è 
più sufficiente (cfr CLEAR). 

(Superamento dei valore limite) 

Si cerca di assegnare ad una variabile in¬ 
tera un valore non compreso tra —32768 e 
+32767. 

(Vettore ridimensionato) 

Un vettore viene dimensionato una secon¬ 
da volta oppure si cerca di dimensionare 
un vettore già utilizzato in precedenza e 
dimensionato automaticamente a 10 dal 
sistema (per esempio in seguito ad un’i¬ 
struzione del tipo: A(4)=X). 

(RÉSUMÉ senza errore) 

Viene incontrata l’istruzione RÉSUMÉ 
senza che si sia riscontrato aicun errore. 

(RETURN senza GOSUB) 

— Si è entrati in un sottoprogramma con 
un GOTO anziché con un GOSUB 
oppure 

— Si è entrati in un sottoprogramma per 
errore, avendo dimenticato nel pro¬ 
gramma principale un END o uno STOP 
(se il programma principale è stato 

' scritto prima dei sottoprogrammi). 
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String formula too complex | 16 


String too long 15 


Subscript out of rango 9 


Syntax error 2 


Type mismatch 13 


Undefined line 8 


Undefined user function 18 


Unprintable error 21 


(Espressione alfanumerica troppo com¬ 
plessa) 

L'espressione usata è troppo lunga oppure 
è troppo complessa. Occorre scomporla 
in espressioni più semplici. 

(Stringa troppo lunga) 

Si vuole utilizzare una stringa con più di 
255 caratteri. 

(Indice non accettabile) 

Si fa riferimento ad un elemento di un vet¬ 
tore con un valore dell’indice che supera 
la dimensione del vettore. 

Questo errore è comune quando vengono 
utilizzati dei vettori senza dichiarare espli¬ 
citamente la dimensione, in quanto il si¬ 
stema operativo li dimensiona automati¬ 
camente aio. 

(Errore di sintassi) 

L’istruzione contiene un errore di sintassi: 

— parametri mancanti 

— punteggiatura scorretta 

— istruzione sconosciuta 

— etc. 

(Incongruenza di tipo) 

Un valore numerico viene assegnato ad 
una variabile alfanumerica o viceversa. 

(Linea inesistente) 

Si fa riferimento ad un numero di linea che 
non corrisponde ad alcuna istruzione. 

(Funzione non definita) 

Viene chiamata una funzione USR senza 
che sia stata prima definita. 

(Non vi sono messaggi per questo tipo di 
errore). 
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APPENDICE III 


TABELLA DEI CODICI ASCII 
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APPENDICE IV 


ELENCO DEI PROGRAMMI 


pagina 

Aggiornamento di una matrice . 25 

Stampa di una matrice . 58 

Ricerca dicotomica . 59 

Ricerca automatica della scala per un istogramma . 60 

Ordinamento con il metodo di SHELL . 61 

File ad accesso diretto: generazione, consultazione, aggiornamento 76 

Files sequenziali: lettura, scrittura . 80 

Data del file . 87 

Subbie sort . 88 

Shell - Metzer sort . 89 

Stampa ordinata degli elementi di un file ‘random’ . 90 

Raggruppamento per codici . 91 

Allocazione dinamica (Bit-Map) . 95 

Gestione del video sul TRS80 . 101 

Gestione del terminale LX500 104 

Accesso indicizzato . 107 

Gestione di un data base . 129 


NOTA; Nei programmi, a volte, sono state tralasciate alcune tra le routine più semplici, lasciando al 
lettore, quale esercizio, lo sviluppo delle stesse. 
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L. 11.000 


Cod. 515 H 


ISBN 88-7056-117-8 


Il libro si rivolge in modo particolare a chi già 
conosce il Basic e desidera poter realizzare 
programmi che prevedano l’usodi file residen¬ 
ti su disco. Per coloro che invece non hanno 
mai avuto occasione di utilizzare tale linguag¬ 
gio una sezione a parte ne richiama le caratte¬ 
ristiche fondamentali. Dopo aver preso in esa¬ 
me, utilizzando numerosi esempi pratici, le 
particolarità della versione Basic scelta per le 
sue caratteristiche di generalità, (Microsoft, 
CP/M compatibile) si passa alla descrizione 
delle istruzioni necessarie ad una corretta ge¬ 
stione dei file su disco, sia ad accesso diretto 
che sequenziale. Anche in questo caso sono 
stati riportati numerosi esempi illustrati, ripro¬ 
dotti direttamente dai tabulati originali, al fine 
di evitare al massimo eventuali errori di trascri¬ 
zione. 

Una terza parte del libro è infine interamente 
dedicata alla esposiziorie dei metodi pratici 
per l’uso dei file ad accesso diretto e dei data 
base. 

Il libro è concluso da due appendici tecniche, 
una sui messaggi d’errore e l’altra sui codici 
ASCII. 
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